foreach ($currentword, @words) 

##</code><code>##

foreach $currentword ( @words) {
    ...
    ...
    ...
}

##</code><code>##

foreach my $currentword ( @words)