for (0 .. $#array) { print "$_ $array[$_]\n" }