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