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.