хех :)

[ocehb]

>perl -de0
  DB<1> p sub ($$) { return $_[0]+$_[0]; }->(1,2)
2
  DB<2>