Anagrams

Score: 107.33 (pass)

#!perl -l
map{chop;$a{join'',sort/./g}.="$_ "}sort<>;map{chop;/ /&&print}sort{$a=~y/ / /<=>$b=~y/ / /||$a cmp$b}%a

Score: 109.31 (pass)

#!perl -l
map{chop;$a{join'',sort/./g}.="$_ "}sort<>;map{chop;/ /&&print}sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}%a

Score: 112.30 (pass)

#!perl -l
map{/$/;$a{join'',sort split''}.="$` "}sort<>;map{chop;/ /&&print}sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}%a

Score: 116.33 (pass)

#!perl -l
map{/.*/;push@{$a{join'',sort split''}},$&}sort<>;map{@$_>1&&print join' ',@$_}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a

Score: 119.34 (pass)

#!perl -l
map{/.*/;push@{$a{join'',sort split''}},$&}sort<>;map{print join' ',@$_ if@$_>1}
sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a;

Score: 135.29 (pass)

#!perl
chop(@a=<>);map{push@{$a{join'',sort map{ord}split''}},$_}sort@a;map{print join(
' ',@$_),$/if@$_>1}sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a;