$_ = 3;
print sub :lvalue { print "$_+";       $_ }->() +
      sub :lvalue { print "10="; ++$_; 10 }->(), "\n";