數值類型數組排序使用：

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

perl 實現字符串中數字排序