my @arr;
my @arr1;
my @arr2;
my $i=0;
for (1..1_000_000) {
 # This
 #push @arr, [undef, undef];
 # Or this
 push @arr, [++$i, ++$i];

 # Vs. this:
 #push @arr1, undef;
 #push @arr2, undef;
 # Or this:
 #push @arr1, ++$i;
 #push @arr2, ++$i;
}

print "Done\n";
# Then just do a 'ps -lu runrig' at another command prompt when I get here
my $str=<STDIN>;