foreach (0..$#array){
  # do stuff, $_ holds iteration num.
}