my @array = qw( a b c );
for my $i (0..$#array) {
   print("$i: $array[$i]\n");
}