Help for this page

Select Code to Download

Select or download this

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