while (my ($index, $item) = each @ary) { ... }