for ( 1..3 ) { my $x = $_; } print "\$x is $x\n";