for my $y ( @a ) {...} #### foreach my $y ( @a ) {...} #### foreach ( $x=0; $x < $#a; $x++ ) {my $y=$a[$x];...} #### for ( $x=0; $x < $#a; $x++ ) {my $y=$a[$x];...}