I just wanted to comment that this is a very C like way of doing this, and is more idiomatically written as (or something similar as far as the loop construct):

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

Cheers,
KM