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