Select Code to Download

9,12c9,12
<  [    616 7532665]  # correct
...
---
>  [    605 9533531]  # wrong

use strict;
use warnings;
...
say $result;
say {*STDERR} "total time: ", time - $t;

use strict;
use warnings;
...
say $result;
say {*STDERR} "total time: ", time - $t;

1e7:
    serial  total 15.272s, compute 14.674s   1 core
...
1e8:
  parallel  total 11.779s, compute  5.631s  32 cores