foreach $word ( @wordlist ) {
        ....
    }