Select Code to Download

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];...}