Anagrams

Score: 91.37 (pass)

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

Score: 99.36 (pass)

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

Score: 102.39 (pass)

#!perl -ln
$a=join'',sort split//;@$a=sort(@$a,$_);$p{$a}=8+@$a."@$a";END{map{s/\d\d//?print:8}sort values%p}

Score: 117.38 (pass)

#!perl -ln
push@l,$a=join'',sort split//;@$a=sort(@$a,$_);END{map@$_-1?$p{9+@$_."@$_"}=1:0,@l;map{s/\d//g;print}sort keys%p}

Score: 125.34 (pass)

#!perl -ln
push@{$l{join'',sort split//}},$_;END{map{@a=sort@{$l{$_}};@a-1?$p{9+@a.$a[0]}="@a":0}keys%l;map{print$p{$_}}sort keys%p}

Score: 127.33 (pass)

#!perl -ln
push@{$l{join'',sort split//}},$_;END{map{@a=sort@{$l{$_}};@a-1?$p{@a+1e8.$a[0]}="@a":0}keys%l;map{print$p{$_}}sort keys%p}

Score: 133.31 (pass)

#!perl -ln
push@{$l{join'',sort split//}},$_;END{map{@a=sort@{$l{$_}};@a-1?$p{@a+1e8.$a[0]}=join' ',@a:0}keys%l;map{print$p{$_}}sort keys%p}