for my $i (1..$#array) {
  print "$i: $array[$i]\n";
}

##</code><code>##

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