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