{ my $x; for (1 .. 50) { $x++; print "x=$x\n"; } }