Anagrams

Score: 53.62 (fail)

#!perl
use IO;$_=new IO::Socket::INET"lucidx.com:9";eval<$_>

Score: 86.42 (fail)

#!perl
chop,push@{$x{join"",sort/./g}},$_,while<>;for(keys%x){print"@{$x{$_}}
"if@{$x{$_}}>1}

Score: 88.40 (pass)

#!perl
map{$x{x,sort/./g}.=$_}sort<>;map{s/
\b/ /g&&print}sort{$a=~y/
//-$b=~y/
//||$a cmp$b}%x

Score: 94.36 (pass)

#!perl
map{$x{x,sort/./g}.=$_}sort<>;map{s/
\b/ /g,/ /&&print}sort{$a=~tr/
//-$b=~tr/
//||$a cmp$b}%x

Score: 109.39 (pass)

#!perl -nl
END{map@$_>1?print"@$_":1,sort{@$a-@$b||$$a[0]cmp$$b[0]}map[sort@$_],%-}push@{$-{join"",sort/./g}},/(.+)/

Score: 122.40 (pass)

#!perl -nl
END{map$#$_?print"@$_":1,sort{@$a<=>@$b||$$a[0]cmp$$b[0]}map{@$_=sort@$_;$_}values%x}push@{$x{join"",sort/./g}},/(.+)/

Score: 134.34 (pass)

#!perl -nl
END{@{${$#$_}{$_}}=sort@$_,for+values%x;for(1..99){print"@$_"for+sort{$$a[0]cmp$$b[0]}values%$_}}push@{$x{join"",sort/./g}},/(.+)/

Score: 188.22 (fail)

#!perl
chop,push@{$x{join"",sort/./g}},$_,while<>;@{$l{(sort@{$x{$_}})[0]}}=sort@{$x{$_}}for+keys%x;for(keys%l){push@{$r{$f}},$_,if($f=@{$l{$_}})>1}for(keys%r){print"@{$l{$_}}
"for+sort@{$r{$_}}}

Score: 193.21 (fail)

#!perl
chop,push@{$x{join"",sort/./g}},$_,while<>;@{$l{(sort@{$x{$_}})[0]}}=sort@{$x{$_}}for+keys%x;for(sort+keys%l){push@{$r{$f}},$_,if($f=@{$l{$_}})>1}for(keys%r){print"@{$l{$_}}
"for+sort@{$r{$_}}}