Select Code to Download

#!/usr/bin/perl
use warnings;
...
} 1, 1e6;

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

MCE::Map   9.392 seconds
MCE::Loop  9.396 seconds