Anagrams

Score: 96.35 (fail)

#!perl -ln
push@{$a{join"",sort split""}},$_;END{for(keys%a){print join" ",sort@{$a{$_}}if@{$a{$_}}>1}}

Score: 99.34 (fail)

#!perl -ln
push@{$a{join"",sort split"",$_}},$_;END{for(keys%a){print join" ",sort@{$a{$_}}if@{$a{$_}}>1}}

Score: 159.28 (pass)

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