my @st        = map  { [ $_, property($_) ] } @files;
my @sorted_st = sort { $a->[1] <=> $b->[1] }  @st;
my @sorted    = map  { $_->[0] }              @sorted_st;

sub property { ( $_[0] =~ /fwlog\.(\d+)\w+/ )[ 0 ] };