Select Code to Download

use Time::HiRes qw(time);

...
{
  printf "%10s: %10.6f\n",$k,$v;
}

for $i in (1..2_000_000)
{
  my %case;
  push(@r,\%case);
}