use strict;
use warnings;
$\="\n";
 
my $lamb = sub { 
  our ($d,$e); # local doesn't declare!!!
  local (*d,*e)=\(@_); 
  $d += $e ;
};
 
our $d="D";
our $u=10; 
$lamb->($u,5); 
print $u;  #> 15
print $d;  #> D

##</code><code>##

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