{ my $x; sub x: lvalue { print 'fred'; $x } };
x = 123;
fred