${''}{foo} = 'bar';
$h = '';
%new = %{$h};
print "$_ => $new{$_}\n" for keys %new;
__END__
foo => bar