sort { $b <=> $a || $a cmp $b } @data; #### sort + output: 19 secs #### sort + output: 32 secs