my %hash = qw/foo bar baz bat/;
my $ref  = { %hash };
$hash{foo} = 'foobar';

print Dumper $ref;
print Dumper \%hash;