print "Start: >".$$."<\n";<>;
{
        my @arr;
        $arr[$_]=$_ foreach(1 .. 1000000);
        print "How Many?\n";<>;
#->not needed: undef @arr; 
}
print "Done, how many?\n";<>;