c:\@Work\Perl\monks\nysus>perl -wMstrict -le
"my @x = (1, 2);
 my @y = qw(foo bar);
 ;;
 my $z = 'original';
 for $z (@x) {
   printf qq{$z };
   for $z (@y) {
     printf qq{'$z' };
     }
   print $z;
   }
 print qq{after all loops: '$z'};
"
1 'foo' 'bar' 1
2 'foo' 'bar' 2
after all loops: 'original'