Anagrams

Score: 118.31 (pass)

#!perl -nl
$a=\@{$a{join'',sort split//}};@$a=sort@$a,$_;if(eof){for(sort{$#$a<=>$#$b||"@$a"cmp"@$b"}%a){print"@$_"if$#$_>0}}

Score: 118.33 (fail)

#!perl -nl
$a=\@{$a{join'',sort split//}};@$a=sort@$a,$_;if(eof){for(sort{$#$a<=>$#$b||$a[0]cmp$b[0]}%a){print"@$_"if$#$_>0}}

Score: 122.34 (fail)

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