Anagrams

Score: 105.34 (pass)

#!perl -ln
push@{$p{join0,sort/./g}},$_}{print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}grep{--(@$_=sort@$_)}values%p

Score: 108.35 (pass)

#!perl -ln
push@{$p{join"",sort/./g}},$_}{print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{(@$_=sort@$_)>1}values%p

Score: 108.35 (pass)

#!perl -ln
push@{$p{join"",sort/./g}},$_}{print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{(@$_=sort@$_)>1}values%p

Score: 111.35 (fail)

#!perl -ln
push@{$p{join"",sort/./g}},$_}{print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{$_=[sort@$_];@$_>1}values%p

Score: 115.35 (pass)

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

Score: 119.34 (pass)

#!perl -ln
push@{$w{join"",sort split//}},$_}{print"@$_"for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep{$_=[sort@$_];@$_>1}values%w