Help for this page
print LIST join("\n", keys %wordlist);
print LIST "$_\n" for keys %wordlist;
print LIST "$_\n" while $_ = each %wordlist;
print LIST map "$_\n", keys %wordlist;