Anagrams

Score: 71.38 (pass)

#!perl
map$a{a,sort/./g}.=-$_,sort<>;map{/.-/&&print$'}sort map{s/
-/ /g.$_}%a

Score: 74.38 (pass)

#!perl
map$a{a,sort/./g}.=-$_,sort<>;print grep s/..-//,sort map{9+s/
-/ /g.$_}%a

Score: 74.39 (pass)

#!perl
map$a{a,sort/./g}.=-$_,sort<>;map{/..-/&&print$'}sort map{9+s/
-/ /g.$_}%a

Score: 78.44 (pass)

#!perl
map$a{a,sort/./g}.=$_,sort<>;map{/\d\d/&&print$'}sort map{9+s/
(?!$)/ /g.$_}%a

Score: 89.42 (pass)

#!perl -l
map$a{join'',sort split//}.=$_,sort<>;map{print$1if/\d\d(.*) /}sort map{8+y/
/ /.$_}%a

Score: 90.41 (pass)

#!perl -l
map$a{join'',sort split//}.=$_,sort<>;map{print$1if/\d\d(.*) /}sort map{8+s/
/ /g.$_}%a

Score: 97.33 (fail)

#!perl -anlF//
push@{$h{join'',sort@F}},$_}{map{s/\d\d/print$'/e}sort map{8+@$_.join' ',sort@$_}values%h

Score: 100.31 (pass)

#!perl -anl
push@{$h{join'',sort split//}},$_}{map{s/\d\d/print$'/e}sort map{8+@$_.join' ',sort@$_}values%h

Score: 107.30 (pass)

#!perl -anl
map{push@{$h{join'',sort split//}},$_}@F}{map{s/\d\d/print$'/e}sort map{8+@$_.join' ',sort@$_}values%h

Score: 111.29 (pass)

#!perl -anl
map{push@{$h{join'',sort split//}},$_}@F}{map{s/..//;print}sort grep/ /,map{9+@$_.join' ',sort@$_}values%h

Score: 115.28 (pass)

#!perl -anl
map{push@{$h{join'',sort split//}},$_}@F}{map{s/..//;print}sort grep/ /,map{9+@{$_}.join' ',sort@{$_}}values%h