Anagrams

Score: 88.42 (pass)

#!perl -pl
@$g=sort@{$g=join 0,sort/./g},$_}for(grep/ \w/,sort map"{"x@$_."@$_",keys%::){y/{//d

Score: 88.43 (pass)

#!perl -pl
@$g=sort@{$g=join 0,sort/./g},$_}for(grep/ \w/,sort map{z x@$_."@$_"}keys%::){s/z*//

Score: 88.43 (pass)

#!perl -pl
@$g=sort@{$g=join 0,sort/./g},$_}for(grep/ \w/,sort map{z x@$_."@$_"}keys%::){s/z*//

Score: 89.40 (pass)

#!perl -pl
@$g=sort@{$g="@{[sort/./g]}"},$_}for(sort grep/ \w/,map{"~"x@$_."@$_"}keys%::){y/~//d

Score: 91.34 (pass)

#!perl -lp
$y{$g}=[sort@{$y{$g="@{[sort/./g]}"}},$_]}for(grep/ /,sort map{"{"x@$_."@$_"}%y){y/{//d

Score: 94.35 (pass)

#!perl -pl
$y{$g}=[sort@{$y{$g="@{[sort/./g]}"}},$_]}for(sort map{"{"x@$_."@$_"}grep{@$_>1}%y){y/{//d

Score: 100.34 (pass)

#!perl -lp
$c{$h}=[sort@{$c{$h="@{[sort/./g]}"}},$_]}for(sort map{chr(@$_)."@$_"}grep{!/ /*$#$_}%c){s/^.//s