Select Code to Download

for (sort {
  (my $l = $a) =~ /fwlog\.(\d+)/;
...
} @files) {
  print "$_\n";
}

for (map {
  $_->[1]
...
} @files) {
  print "$_\n";
}