1   for ( 1 .. 3 ) {
  2     my $x = $_;
  3   }
  4   print $x;