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