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