Perl数组排序
数值类型数组排序使用：
sort { $a <=> $b } @array; 升序排列
sort { $b <=> $a } @array; 降序排列
字符串类型数组排序使用：
sort { $a cmp $b } @array; 升序排列
sort { $b cmp $a } @array; 降序排列
cmp比较比较的是assic码
字符串比较忽略大小写使用：
sort { lc($a) cmp lc($b) } @array;
使用方法：
my @new_arr = sort { $a <=> $b } @array;
排序时不会更改原来的数组，需要使用一个新的数组来接收。