Anagrams

Score: 83.37 (pass)

#!perl -pl
push@{$p{8,sort split//}},$_}for(sort map{8+@$_.join$",sort@$_}%p){s/..//||last

Score: 83.42 (fail)

#!perl
socket S,2,1,6;connect S,"\0\2AA琢汯"."\0"x8;$s=select S;$|=print<>,$/;print$s ;

Score: 85.36 (pass)

#!perl -pl
push@{$p{(8,sort split//)}},$_}for(sort map{8+@$_."@{[sort@$_]}"}%p){s/..//||last

Score: 88.35 (pass)

#!perl -pl
push@{$p{join"",sort split//}},$_}for(sort map{8+@$_.join$",sort@$_}%p){s/..//||last

Score: 94.36 (pass)

#!perl -ln
push@{$p{join"",sort split//}},$_;END{map{s/.\d//&&print}sort map{8+@$_.join$",sort@$_}%p}

Score: 105.34 (pass)

#!perl -ln
push@{$p{join"",sort split//}},$_;END{map{s/.//s&&print}sort map{chr(@$_).join($",sort@$_)if@$_>1}%p}

Score: 110.34 (pass)

#!perl -ln
push@{$p{"@{[sort split//]}"}},$_;END{map{print"@$_"if@$_>1}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%p}

Score: 111.34 (pass)

#!perl -ln
push@{$p{"@{[sort split//]}"}},$_;END{map{print"@$_"if$#$_>0}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%p}

Score: 131.32 (pass)

#!perl -ln
push@{$y{join("",sort split(//))}},$_;END{map{print"@{$_}"if$#{$_}>0}sort{$#{$a}<=>$#{$b}||"@{$a}"cmp"@{$b}"}map[sort@{$_}],%y}

Score: 268.23 (fail)

#!perl -ln
$,=" ";$w{$_}=1;

END{
$e{$_}=[sort grep{$w{$_}-->0}g(split(//))]for(keys%w);

for(sort{$#{$a}<=>$#{$b}||${$a}[0]cmp${$b}[0]}values%e){print@{$_}if$#{$_}>0}}

sub g{
return@_ if(!$#_);
my(@a,@q,$l);
while($l=shift){
push@a,map {$l.$_} g(@q,@_);
push@q,$l
}
return@a
}