$a=41;
sub tst :lvalue { $a }
$_++ for tst();
print tst();  # prints 42