for (sort { "-"x!!$reverse.1*($a cmp $b) } @array) { ... }