my %save; for(0 .. 2000000) { $save{$_}{$_+1}=$_+2; }