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