%hash;
$hash{'name'}=1;
$ptr=\$hash{'name'};
print $$ptr;
for(1..1000){
$hash{"$_"}=$_;
}
print $$ptr;