Anagrams

Score: 123.35 (pass)

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

Score: 137.33 (pass)

#!perl -n
chop;push@{$a{join'',sort split//}},$_;END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{[sort@$_]}values%a){$#$_&&print join(' ',@$_).$/;}}