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