Anagrams

Score: 74.49 (pass)

#!perl
$h{"@{[sort/./g]}"}=~s/(.*)
?/{$1 $_/for sort<>;print grep s/{{+ //,sort%h

Score: 99.41 (pass)

#!perl
map{$h{"@{[sort/./g]}"}.=$_}sort<>;print map{y!0#!!d;$_}grep/0/,sort map{$|x s!
(?=.)! !g.'#'.$_}%h

Score: 100.41 (pass)

#!perl
map{$h{"@{[sort/./g]}"}.=$_}sort<>;print map{y!0#!!d;$_}grep/0/,sort map{$|x s!\n(?=.)! !g.'#'.$_}%h

Score: 103.36 (pass)

#!perl -ln
push@{$h{"@{[sort/./g]}"}},$_;END{s/00+ //&&print for sort map"@{[$|x@{$h{$_}},sort@{$h{$_}}]}",%h}

Score: 104.39 (pass)

#!perl -ln
push@{$h{join'',sort/./g}},$_;END{s/00+ //&&print for(sort map{@e=@{$h{$_}};join$",$|x@e,sort@e}%h)}

Score: 109.39 (pass)

#!perl -ln
push@{$h{join'',sort/./g}},$_;END{s/00+ //&&print for(sort map{join$",$|x@{$h{$_}},sort@{$h{$_}}}keys%h)}

Score: 159.27 (pass)

#!perl -ln
$a="@{[sort split//]}";push@{$h{$a}},$_;$n{$a}++;$k{$a}="@{[sort@{$h{$a}}]}";END{print$k{$_}for(sort{$n{$a}<=>$n{$b}or$k{$a}cmp$k{$b}}grep$n{$_}>1,keys%h)}