for (0 .. $#array) {$array[$_]++}