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