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