Anagrams

Score: 114.37 (pass)

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

Score: 115.37 (pass)

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

Score: 120.38 (pass)

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

Score: 134.34 (pass)

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

Score: 141.32 (pass)

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

Score: 141.32 (pass)

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

Score: 141.32 (pass)

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

Score: 148.30 (pass)

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

Score: 176.26 (pass)

#!perl -ln
push @w,$_;END{sub w{join'',sort split//,pop}for$w(@w){my@m;for(@w){(w$_)eq(w$w)&&push@m,$_}@m=sort@m;$#m&&($m{"@m"}=$#m)}for(sort{$m{$a}<=>$m{$b}||$a cmp$b}keys%m){print}}