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