Anagrams

Score: 64.48 (fail)

#!perl -nl
push@{$s{join"",sort/./g}},$_}{@$_>1&&print"@$_"for values%s

Score: 68.44 (fail)

#!perl -nl
push@{$s{join"",sort+split//}},$_}{@$_>1&&print"@$_"for values%s

Score: 108.36 (pass)

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