use strict;
my %hash = ();
$hash{a}{drinks}=1;
$hash{b}{drinks}=2;

my $p = \%hash;
my %copy = %{ $p };

print "ref hash: ", \%hash, "\nref copy: ", \%copy, "\n";
print "values hash: ",join(", ", values %hash), "\nvalues copy: ",join(", ", values %copy), "\n";

##</code><code>##

copy: ab
hash: ab
ref hash: HASH(0x82ef7d8)
ref copy: HASH(0x82ef928)
values hash: HASH(0x82e0308), HASH(0x82ef788)
values copy: HASH(0x82e0308), HASH(0x82ef788)