Anagrams

Score: 67.42 (pass)

#!perl
map$n^s/\s\b/ /g||print,sort%a,$n++for map$a{r,sort/./g}.=$_,sort<>

Score: 68.40 (pass)

#!perl
++$s,map$s^s/ |
^/ /mg||print,sort%,for map$,{r,sort/./g}.=$_,sort<>

Score: 69.41 (pass)

#!perl
++$s,map$s==s/ |
^/ /mg&&print,sort%,for map$,{r,sort/./g}.=$_,sort<>

Score: 73.42 (pass)

#!perl
map$,{r,sort/./g}.=$_,sort<>;print grep$s==s/ |
^/ /mg,sort%,while++$s<$=

Score: 74.42 (pass)

#!perl
map$,{r,sort/./g}.=$_,sort<>;print grep s/ |
^/ /mg==$s,sort%,while++$s<$=

Score: 74.43 (pass)

#!perl
map$,{r,sort/./g}.=$_,sort<>;map{s/ |
^/ /mg==$s&&print}sort%,while++$s<$=

Score: 78.41 (pass)

#!perl
map$,{r,sort/./g}.=$_,sort<>;map{s/
^/ /mg;y/ //==$s&&print}sort%,while++$s<$=

Score: 80.39 (pass)

#!perl
map$s{r,sort/./g}.=$_,sort<>;for$s(1..$=){print grep{s/
^/ /mg;y/ //==$s}sort%s}

Score: 87.36 (pass)

#!perl
map$s{r,sort/./g}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}grep s/
^/ /mg,%s

Score: 90.34 (pass)

#!perl
map$s{r,sort/./g}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}map s/
^/ /mg&&$_,%s

Score: 95.34 (pass)

#!perl
map$s{join$=,sort/./g}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}map s/
^/ /mg&&$_,%s

Score: 96.36 (pass)

#!perl 
map$s{"@{[sort/./g]}"}.=$_,sort<>;print sort{$a=~y/ //-$b=~y/ //or$a cmp$b}map s/
^/ /mg&&$_,%s

Score: 97.36 (pass)

#!perl -p
$s{join$,,sort/./g}.=$_}{print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}
"x/
./,%s

Score: 98.36 (pass)

#!perl -p
$s{join$,,sort/./g}.=$_}{print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}
"x/\n./,%s

Score: 100.34 (pass)

#!perl -n
$s{join$,,sort/./g}.=$_}{print sort{$a=~y/ //-$b=~y/ //||$a cmp$b}grep/ /,map"@{[sort/.+/g]}
",%s

Score: 101.35 (pass)

#!perl -p
$s{join"",sort/./g}.=$_}{map$\.=/ /&&$_,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}
",%s

Score: 103.34 (pass)

#!perl -ln
$s{join'',sort/./g}.=$_.$/}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}",%s

Score: 103.35 (pass)

#!perl -ln
$h{join'',sort/./g}.=$_.$/}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}",%h

Score: 108.37 (pass)

#!perl
map$h{join'',sort/./g}.=$_,<>;map/ /&&(print$_.$/),sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort/.+/g]}",%h

Score: 110.33 (pass)

#!perl -ln
push@{$h{"@{[sort/./g]}"}},$_}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort@$_]}",values%h