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