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

##</code><code>##

my $x = {};
$x->{'named'} = 'watermelon';
print  $x->{'named'} , " is quite delicious\n";
my $ref = \   $x->{'named'};
$$ref = 'cantelope';
print  $x->{'named'} , " is quite delicious\n";
$x->{'named'}='mango';
print  $x->{'named'} , " is quite delicious\n";
print  $$ref , " is quite delicious\n";
for(1..10){
$x->{'named'}=$_;
print "$$ref $x->{'named'}\n";
}