反向排序

@sorted = sort { $b <=> $a } @list;
@sorted = reverse sort { $a <=> $b } @list;

通过在比较器块中交换 $a 和 $b，可以简单地按降序对项目进行排序。然而，有些人更喜欢单独的 reverse 的清晰度，即使它稍慢。