my $i;
for ($i = 0; $i < scalar(@words); $i++) {
    print "$i: " . $words[$i] . "\n";
}