Anagrams

Score: 86.43 (pass)

#!perl
map{$s{join"",sort split//}=~s/(.*)
?/~$1 $_/}sort<>;map{s/~~+ //&&print}sort values%s

Score: 95.36 (pass)

#!perl
map{$a=join"",sort split//;$s{$a}="~$s{$a}$_"}sort<>;map{s/
\b/ /g;s/~~+//&&print}sort values%s

Score: 98.35 (pass)

#!perl
map{$a=join"",sort split//;$s{$a}="~$s{$a}~$_"}sort<>;map{s/
~/ /g;s/~~~+//&&print}sort values(%s)

Score: 100.35 (pass)

#!perl
map{chop;$a=join"",sort split//;$s{$a}="~$s{$a} $_"}sort<>;map{s/~~+ //&&print"$_\n"}sort values(%s)