perl -e'
$z=10; $x=sub :lvalue { $z};
(&$x)=42; print &$x;
'
42