foreach (@array) {
  # do someting with $_
}

##</code><code>##

for ($i = 0; $i < @array; ++$i) {
  # do something with $array[$i]
}

##</code><code>##

foreach $i (0 .. $#array) {
  # do something with $array[$i]
}