$x = sub:lvalue { $y };;
$x->() = 3;;
print $y;;
3