$foo = \%bar;
print $foo, "\n";
%bar = ();
$foo = \%bar;
print $foo, "\n";