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;
## for my $i (0 .. $#words) { print "$i: $words[$i]\n"; } ##
## print "$_: $words[$_]\n" for 0 .. $#words;