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

open (MYFILE, '>links.txt');

print MYFILE "$file[-1]\n";
print MYFILE "$file[-2]\n";
print MYFILE "$file[-3]\n";
print MYFILE "$file[-4]\n";
print MYFILE "$file[-5]\n";
print MYFILE "$file[-6]\n";
print MYFILE "$file[-7]\n";
print MYFILE "$file[-8]\n";
print MYFILE "$file[-9]\n";
print MYFILE "$file[-10]\n";

close (MYFILE);