Select Code to Download

use warnings; use strict; use feature 'say';
use MCE::Util;
...
}, 1, 1e6;

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

$ time perl ch-map.pl
922525 445
...
real    0m4.843s
user    0m47.423s
sys    0m0.265s

time perl ch-flow.pl

...
real    0m4.661s
user    0m47.057s
sys    0m0.255s