for (map {
  $_->[1]
} sort {
  $a->[0] <=> $b->[0]
} map {
  /fwlog\.(\d+)/;
  [ $1, $_ ]
} @files) {
  print "$_\n";
}