Anagrams

Score: 111.38 (pass)

#!perl -nl
push@{$a{join"",sort/./g}},$_;END{/ /&&print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map"@{[sort@$_]}",%a}

Score: 112.38 (pass)

#!perl -nl
push@{$a{join'',sort/./g}},$_;END{/ /&&print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map{"@{[sort@$_]}"}%a}

Score: 121.35 (pass)

#!perl -nl
push@{$a{join'',sort/./g}},$_;END{y/ //&&print for sort{$a=~y/ //<=>$b=~y/ //||$a cmp$b}map{join' ',sort@$_}values%a}

Score: 135.33 (pass)

#!perl -nl
push@{$a{join'',sort/./g}},$_;END{@_=map{[sort@$_]}values%a;$,=' ';@$_==1&&next||print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@_}