print map { $_->[1] } sort {$a->[0] <=> $b->[0] } map { [ /fwlog\.(\d+)/, $_ ] } @data;