>perl -wMstrict -le
"my $x = 'foo';
 print qq{x before loop: '$x'};
 ;;
 for $x (0 .. 2) {
   func();
   our $y;
   print qq{$x, $y};
   }
 ;;
 print qq{x after loop: '$x'};
 sub func {
   our $x;
   our $y;
   $x = 99;
   $y = 42;
   }
"
x before loop: 'foo'
0, 42
1, 42
2, 42
x after loop: 'foo'