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