Anagrams

Score: 64.44 (pass)

#!perl
$g{g,sort/./g}=~s/.*/~$& $_/for sort<>;print/~~ (.*
)/for sort%g

Score: 68.46 (pass)

#!perl
map$g{g,sort/./g}=~s/.*/~$& $_/,sort<>;/~~ (.*
)/&&print$1for sort%g

Score: 68.47 (pass)

#!perl
map$h{1,sort/./g}=~s/.*/~$& $_/,sort<>;/~~ (.*
)/&&print$1for sort%h

Score: 70.49 (pass)

#!perl -l
map$h{1,sort/./g}=~s/.*/~$& $_/,sort<>;/~~ (.*)/&&print$+for sort%h

Score: 82.40 (pass)

#!perl -lpa
@$_=sort@F,@$_ for$h{1,sort/./g}}for(grep/ /,sort map'~'x@$_."@$_",%h){s/~+//

Score: 93.47 (pass)

#!perl -ln
END{/~~(\w.*)/&&print$+for sort map'~'x@$_."@$_",keys%::}@$s=sort$_,@{$s="@{[sort/./g]}"}

Score: 95.42 (pass)

#!perl -ln
END{s/~~~.*1 //&&print for sort map'~'x@$_."@$_",keys%::}@$s=sort$_,@{$s="@{[sort/./g]}"},1