Select Code to Download

#!/usr/bin/perl
use warnings;
...
my @sizes = mce_map_s { [$_, scalar collatz($_)] } 1, 1e6;

say "@$_" for reverse +(sort { $b->[1] <=> $a->[1] } @sizes)[0 .. 19];

Serial    48.170 seconds
Parallel   9.361 seconds