这通常被称为自然排序 。 有实现它的模块： Sort :: Naturally 
 
 要获得最高价值 - 您可以排序并获取最后一个元素： 
 
use strict; use warnings;
use Sort::Naturally;

my @names = (...);
my $name_with_biggest_number = (nsort(@names))[-1];
 
 更新 - 手动排序 
 
 使用地图/排序/地图成语 。 但是，只有在文件名中有单个数字时才能工作： 
 
use strict; use warnings;

my @names = (...);
my @sorted_names = 
    map { $_->[0] }
    sort { $b->[1] <=> $a->[1] } ## descending order
    map { [ $_, m/(\d+)/ ] }     ## extracting first number
    @names;
my $name_with_biggest_number = $sorted_names[0];
 
 更新 - 无需排序 
 
 根据输入数据，避免使用sort可能更有效。 所以你可以明确的代码搜索最大数量： 
 
sub name_with_largest_number {
        my (@names) = @_;

        my $max_number = undef;
        my $name_with_max_number = undef;
        for my $name (@names) {
                my ($number) = ($name =~ m/(\d+)/);
                if (defined $number) {
                        if (! defined $max_number || $number > $max_number) {
                                $max_number = $number;
                                $name_with_max_number = $name;
                        }
                }
        }
        return $name_with_max_number;
}

print name_with_largest_number(...);

This is usually called natural sort. There is module implementing it: Sort::Naturally
 
To get highest value - you can sort and get last element:
 
use strict; use warnings;
use Sort::Naturally;

my @names = (...);
my $name_with_biggest_number = (nsort(@names))[-1];
 
Update - sort manually
 
Using map/sort/map idiom. But will work only if there is single number in file name:
 
use strict; use warnings;

my @names = (...);
my @sorted_names = 
    map { $_->[0] }
    sort { $b->[1] <=> $a->[1] } ## descending order
    map { [ $_, m/(\d+)/ ] }     ## extracting first number
    @names;
my $name_with_biggest_number = $sorted_names[0];
 
Update - without sort
 
Depending on input data it can be more efficient to avoid using sort. So you can explicitly code search of max number:
 
sub name_with_largest_number {
        my (@names) = @_;

        my $max_number = undef;
        my $name_with_max_number = undef;
        for my $name (@names) {
                my ($number) = ($name =~ m/(\d+)/);
                if (defined $number) {
                        if (! defined $max_number || $number > $max_number) {
                                $max_number = $number;
                                $name_with_max_number = $name;
                        }
                }
        }
        return $name_with_max_number;
}

print name_with_largest_number(...);