while (<WORDLIST>){push (@words => lc($_))}