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