$ perl -E'
   sub X1 :lvalue { say "X1"; $X1 }
   sub X2         { say "X2"; $X2 }
   sub X3         { say "X3"; $X3 }

   sub { }->( X1() = X2() || X3() );
'
X2
X3
X1