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