#!perl -l
use Array::RefElem qw(hv_store);
my %w;
my $x='foo';
hv_store(%w,'bar',$x);
$w{bar}='baz';
print $w{bar};
print $x;
$x='bop';
print $w{bar};
print $x;
__END__
baz
baz
bop
bop