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