my $x;
for $x (1,2,3){ print "x=$x\n" }

##</code><code>##

for my $x (1,2,3){ print "x=$x\n" }