Select Code to Download

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

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

print "$_: $words[$_]\n" for 0 .. $#words;