open(FILE, "<filelist.txt");
@file = <FILE>;
chomp @file;
close FILE;

open (MYFILE, '>links.txt');
for my $i (1..10) {
 print MYFILE "$file[-$i]";
 print "$1\n" if $file[-$i] =~ m/(\d{8}_\d{4})/;
}
close (MYFILE);