use strict;
use Devel::Pointer;

my %hash;
$hash{foo} = "bar";

my $ref = address_of($hash{foo});
print "reference : ".$ref."\n";

my $val = deref($ref);
print "value : ".$val."\n";

__output___

reference : 9900396
value : bar