use strict;

my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my %months;

my @files = qw (
fwlog.14Mar2005.gz
fwlog.15Mar2005.gz
fwlog.16Mar2005.gz
fwlog.17Mar2005.gz
fwlog.18Mar2005.gz
fwlog.19Mar2005.gz
fwlog.1Mar2005.gz
fwlog.20Dec2005.gz
fwlog.21Mar2005.gz
fwlog.2Mar2005.gz
fwlog.3Mar2005.gz
fwlog.4Mar2005.gz
fwlog.5Jan2006.gz
fwlog.6Mar2005.gz
fwlog.7Mar2005.gz
fwlog.8Mar2005.gz
fwlog.9Mar2005.gz
);

my $i = 1;
$months{$_} = sprintf( "%02d", $i++ ) for @months;

print $_, "\n" for map { $_->[0] } 
sort { 
  $a->[1] <=> $b->[1] or 
  $a->[2] <=> $b->[2] or 
  $a->[3] <=> $b->[3] 
} 
map { 
 (split(/\./,$_,3))[1] =~ /^(\d+)([A-Za-z]+)(\d+)$/; 
 [$_, sprintf( "%02d", $3), $months{$2}, $1 ] 
} @files;