Select Code to Download

%hash;
$hash{'name'}=1;
...
$hash{"$_"}=$_;
}
print $$ptr;

my $x = {};
$x->{'named'} = 'watermelon';
...
$x->{'named'}=$_;
print "$$ref $x->{'named'}\n";
}