Anagrams

Score: 123.35 (pass)

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

Score: 139.29 (pass)

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

Score: 147.31 (pass)

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