print LIST join("\n", keys %wordlist); 

##</code><code>##

print LIST "$_\n" for keys %wordlist;

##</code><code>##

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

##</code><code>##

print LIST map "$_\n", keys %wordlist;