$ perl -E'
   sub L :lvalue { say "L"; $L }
   sub R         { say "R"; $R }

   sub { }->( L() = R() );
'
R
L