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