use strict;
{
   our $y;
   $y = 17;
   print "Inner: $y\n";
}

our $y;
print "Outer: $y\n";