use strict; { our $foo=10; } { our $foo; # same $foo as the other one print $foo; }