Anagrams

Score: 63.48 (pass)

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

Score: 66.47 (pass)

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

Score: 66.47 (pass)

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

Score: 67.46 (pass)

#!perl
$r{r,sort/./g}=~s/(.*)
?/1$1 $_/for sort<>;print$' x/11 /for sort%r

Score: 73.37 (pass)

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

Score: 73.38 (pass)

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

Score: 73.40 (pass)

#!perl
map$i{1,sort/./g}.=$".$_,sort<>;/. /&&print$' for sort map{s/
 / /g.$_}%i

Score: 74.39 (pass)

#!perl
map$o{1,sort/./g}.=" $_",sort<>;/. /&&print$' for sort map{s/
 / /mg.$_}%o

Score: 75.41 (pass)

#!perl
map$o{1,sort/./g}.=" $_",sort<>;/\d /&&print$' for sort map{s/
 / /mg.$_}%o

Score: 77.39 (pass)

#!perl
$o{1,sort/./g}.=" $_"for sort<>;/1 /&&print$' for sort map{1x s/
 / /mg.$_}%o

Score: 84.40 (pass)

#!perl -ln
END{/11 /&&print$' for sort map{join$",1x@$_,sort@$_}%o}push@{$o{1,sort/./g}},$_

Score: 85.42 (pass)

#!perl -ln
END{/1+ /&&print$' for sort map{join$",1x$#$_,sort@$_}%o}push@{$o{1,sort/./g}},$_

Score: 86.43 (pass)

#!perl -ln
END{/ /&$`>0&&print$' for sort map{join$",$#$_,sort@$_}%o}push@{$o{1,sort/./g}},$_

Score: 87.39 (pass)

#!perl -ln
END{/ /&&print$' for sort map{$#$_&&join$",sort$#$_,@$_}%o}push@{$o{1,sort/./g}},$_

Score: 90.38 (pass)

#!perl -ln
END{map{/ /&&print$'}sort map{$#$_&&join$",sort$#$_,@$_}%o}push@{$o{1,sort/./g}},/.+/g

Score: 91.42 (fail)

#!perl -nl
push@{$h{1,sort/./g}},/.+/g;END{/ /&&print$'
for sort map{@$_>1&&join$",sort$#$_,@$_}%h

Score: 93.39 (pass)

#!perl -l
push@{$o{1,sort/./g}},/.+/g while<>;map{/ /&&print$'}sort map{$#$_&&join$",sort$#$_,@$_}%o

Score: 94.38 (pass)

#!perl -l
push@{$o{1,sort/./g}},/.+/g while<>;map{s/.+? //&/ /&&print}sort map{join$",$#$_,sort@$_}%o

Score: 94.39 (pass)

#!perl -l
push@{$h{1,sort/./g}},/.+/g while<>;s/.+? //&/ /&&print for sort map{join$",$#$_,sort@$_}%h

Score: 99.38 (pass)

#!perl -l
push@{$h{1,sort/./g}},/.+/g while<>;@a=map{join$",$#$_,sort@$_}%h;s/.+? //&/ /&&print for sort@a

Score: 102.35 (pass)

#!perl -l
push@{$h{1,sort/./g}},/.+/g while<>;push@a,join$",$#$_,sort@$_ for%h;s/.+? //&/ /&&print for sort@a

Score: 106.37 (fail)

#!perl -l
while(<>){push@{$h{1,sort/./g}},/.+/g}push@a,join$",$.-@$_,sort@$_ for%h;map s/\d+ //&/ /&&print,sort@a

Score: 106.37 (fail)

#!perl -l
while(<>){push@{$h{1,sort/./g}},/.+/g}push@a,join$",$.-@$_,sort@$_ for%h;map s/\d+ //&/ /&&print,sort@a