Anagrams

Score: 87.39 (pass)

#!perl -ln
push@{$a{join"",sort/./g}},$_}{map{/ /,$`>0&&print$'}sort map"@{[$#$_,sort@$_]}",%a

Score: 95.36 (pass)

#!perl -ln
push@{$a{join"",sort/./g}},$_}{for$i(2..99){print for sort map@$_==$i?join$",sort@$_:(),%a}

Score: 116.36 (pass)

#!perl -ln
push@{$a{join"",sort/./g}},$_}{print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map$#$_?join$",sort@$_:(),values%a