Anagrams

Score: 70.43 (pass)

#!perl
$o{join"",sort/./g}=~s/.*/~$& $_/for sort<>;print/\w+ .*\n/gfor sort%o

Score: 70.46 (pass)

#!perl
map$o{join"",sort/./g}=~s/.*/~$& $_/,sort<>;print/\w+ .*\n/gfor sort%o

Score: 71.44 (pass)

#!perl
map$o{join"",sort/./g}=~s/.*/~$& $_/,sort<>;print map/\w+ .*\n/g,sort%o

Score: 77.40 (fail)

#!perl
map$o{join"",sort/./g}.=$_,sort<>;map$r[s/\n\b/ /g].=$_,sort%o;print@r[1..@r]

Score: 78.41 (pass)

#!perl
map$o{join"",sort/./g}.=$_,sort<>;$r[s/\n\b/ /g].=$_ for sort%o;print@r[1..@r]

Score: 79.42 (fail)

#!perl
map$o{join"",sort/(.)/g}.=$_,sort<>;map$r[s/\n\b/ /g].=$_,sort%o;print@r[1..@r]

Score: 89.43 (pass)

#!perl
$o{join"",sort/(.)/g}.=$_ for sort<>;@r[s/\n\b/ /g].=$_ for sort values%o;print@r[1..$#r]

Score: 104.39 (pass)

#!perl
$h{join"",sort /(.)/g}.=$_ for sort<>;
print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}grep s/\n\b/ /g,values%h

Score: 108.39 (pass)

#!perl
$h{join"",sort split//}.=$_ for sort<>;
print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}grep s/\n(?=.)/ /g,values%h