my @sorted_list =
    map { $_ -> [1] }
    sort { $a->[0] cmp $b->[0] }
    map { [ do { (my $x = $_) =~ tr/0-9//dc; $x },
            $_ ] } @file_list;