数值类型数组排序使用：
sort { $a <=> $b } @array; #升序排列 sort { $b <=> $a } @array; #降序排列
字符串类型数组排序使用：
sort { $a cmp $b } @array; #升序排列 sort { $b cmp $a } @array; #降序排列
字符串比较忽略大小写使用：
sort { lc($a) cmp lc($b) } @array;
字符串-数字类型数组排序使用：
@list = ("ab,33,dd", "cc,1,ee", "bb,12,cc");
foreach $line (@list){
@sss = split(/,/,$line);
$save{$sss[1]} = $line;
}
my @key =sort {$a <=> $b} keys %save;
for my $i(@key){
push @array, "$save{$i}";
}
print "@array\n"; # cc,1,ee bb,12,cc ab,33,dd
原文：https://www.cnblogs.com/junyongwang/p/9412982.html