$ perl -MO=Deparse -e ' @x = x() = 5; '
@x = (x() = 5);

##</code><code>##

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