foreach my $currentword ( @words)