Anagrams

Score: 79.39 (fail)

#!perl -l
$p{"@{[sort split//]}"}.="$_ "for<>;/ ./&&print"@{[sort split]}"for values%p

Score: 98.37 (fail)

#!perl -l
push@{$p{chop,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{"$#$a@$a"cmp"$#$b@$b"}values%p

Score: 98.37 (fail)

#!perl -l
push@{$p{chop,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{"$#$a@$a"cmp"$#$b@$b"}values%p

Score: 100.37 (pass)

#!perl -l
push@{$p{chop,sort/./g}},$_ for sort<>;$#$_&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p

Score: 101.37 (pass)

#!perl -l
push@{$p{chop,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p

Score: 103.36 (pass)

#!perl -l
chop,push@{$p{1,sort/./g}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p

Score: 107.33 (pass)

#!perl -l
chop,push@{$p{1,sort split//}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p

Score: 111.33 (pass)

#!perl -l
chop,push@{$p{join0,sort split//}},$_ for sort<>;@$_>1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%p