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