$h->{bar}=1;
print "$h $$h{bar}\n";

##</code><code>##

HASH(0x7fefc8) 1

##</code><code>##

$h->{bar}=1;
$h='foo';
print "$h $$h{bar}\n";

##</code><code>##

foo 

##</code><code>##

$h='foo';
$h->{bar}=1;
print "$h $$h{bar}\n";

##</code><code>##

foo 1