use Date::Parse qw( str2time );

sub date
{
  my ($file) = @_;
  $file =~ /fwlog\.(.*)\.gz/
    or warn "Unrecognized filename format";
  return str2time($1);
}

my @sorted = sort { date($a) <=> date($b) } @files;