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