my $lamb = sub { 
  #  our ($d,$e);
  local (*::d,*::e)=\(@_); 
  $::d += $::e ;
};