Select Code to Download

use strict;
use warnings;
...
print "$_ -> $count{$_}\n" for @ten;
printf "duration: %0.3f seconds\n", time - $start;

use strict;
use warnings;
...
printf "$_ -> %ld\n", $count->get($_) for @ten;
printf "duration: %0.3f seconds\n", time - $start;

  Serial 1.534 seconds
Parallel 0.410 seconds
...
8 -> 1000212
9 -> 1000788