#!./perl

$o = {A,1};
$r = \($o->{A});
print $$r;
$$r = foo;
print $$r;