Select Code to Download

sort { $b <=> $a || $a cmp $b } @data;

sort + output: 19 secs

sort + output: 32 secs