use strict;

my $x = "foo";
my $y = \$x;
my %foo = ($y => "bar");
for (keys %foo) { print $$_ };  # hoping to print 'foo'

##</code><code>##

my %foo = ($y => "bar");
my %refs = ($y => $y);