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";