sub d :lvalue { print("$_[0]\n"); $_[1] }

d("LHS", 4   ) + d("RHS", 5);  # LHS, RHS
d("LHS", $var) = d("RHS", 1);  # RHS, LHS