按照要求进行的排序:结果如下:如果要降序排列,只要把程序的第二行变成sort{$b$a}就可以了:结果如下:

perl高级排序,<=>操作符,飞船操作符