use strict;
{ my $x; $x = 1; print "\$x=$x\n"; }
{ my $x; $x +=1; print "\$x=$x\n"; }
# and
{ our $y; $y = 1; print "\$y=$y\n"; }
{ our $y; $y +=1; print "\$y=$y\n"; }
# and see the globals in the main namespace
print "\$main::x=$main::x, \$main::y=$main::y\n";