DB<20> $lamb=sub { my($x,$y)=\(@_); $$x += $$y } 
  
  DB<21> $a=10; $lamb->($a,5); print $a
15