sub x :lvalue { ...; $lvalue }
...

$y = this( $_ ) ? that( $_ ) : tother( $_ ) for x();