Anagrams

Score: 66.42 (pass)

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

Score: 67.45 (pass)

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

Score: 69.45 (pass)

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

Score: 91.45 (pass)

#!perl -l
map{($p{0,sort/(.)/g}.=" $_")=~s/./chr(1+ord$&)/e}sort<>;map{/ /&&print/([\w ])/g}sort%p

Score: 101.36 (fail)

#!perl -nl
@$a=sort@{$a=\@{$p{0,sort/(.)/g}}},$_}{map{print qq{@$_}if@$_>1}sort{$#$a.@$a[0]cmp$#$b.@$b[0]}%p

Score: 103.36 (pass)

#!perl -nl
@$a=sort@{$a=\@{$p{0,sort/(.)/g}}},$_}{map{print qq{@$_}if$#$_>0}sort{@$a<=>@$b||@$a[0]cmp@$b[0]}%p

Score: 119.39 (pass)

#!perl -nl
push@{$h{join0,sort/(.)/g}},$_;END{map{print qq{@$_}if$#$_}sort{@$a<=>@$b||
@$a[0]cmp@$b[0]}map{[sort@$_]}values%h}