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

##</code><code>##

3+10=14