I still have this that I wrote years ago: for(<>){chop;$s{join'',sort split'',lc}.=" $_"}for(sort%s){/. /&&print"$_\n"} Feed it a wordlist and it spews ou

I still have this that I wrote years ago: for(<>){chop;$s{join'',sort split'',lc}.=" $_"}for(sort%s){/. /&&print"$_\n"} Feed it a wordlist and it spews out anagrams.