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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

  1   my $x = 6;
  2   my $x = $_ for ( 1 .. 3 );
  3   print $x;