Anagrams

Score: 90.44 (fail)

#!perl
chomp,push@{$;{join$&,sort split$&,$_}},"$_ "while;$#$_&&print@{$_},$/for(values%;)

Score: 137.30 (pass)

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

Score: 140.31 (pass)

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

Score: 159.30 (pass)

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