c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'eks';
 print qq{before loop: $x};
 ;;
 for my $x (1, 2, 3) {
   print qq{in loop: $x};
   }
 ;;
 print qq{after loop: $x};
"
before loop: eks
in loop: 1
in loop: 2
in loop: 3
after loop: eks

c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'eks';
 print qq{before loop: $x};
 ;;
 for $x (1, 2, 3) {
   print qq{in loop: $x};
   }
 ;;
 print qq{after loop: $x};
"
before loop: eks
in loop: 1
in loop: 2
in loop: 3
after loop: eks