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