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