foreach ($currentword, @words)