$ perl -le 'sub x : lvalue { $a } (x() = 4) = 2; print $a'
2