print Dumper %hash;

##</code><code>##

print Dumper \%hash;
#            ^

##</code><code>##

my %copied_hash = %{ eval $string };