print LIST "$_\n" while $_ = each %wordlist;