{ my $X = 12345; sub x :lvalue { $X } };;
print x();;
12345

$r = \x();;
print x();;
12345

$$r = 456;;
print x();;
456