Anagrams

Score: 108.38 (pass)

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

Score: 110.38 (pass)

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

Score: 115.37 (pass)

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