use strict;

{
   our $y = 17; 
   print "inner: $y\n";
}

print "outer: $main::y\n";