Anagrams

Score: 76.36 (pass)

#!perl
map$a{o,sort/./g}.=_.$_,sort<>;map{s/.._//&&print}sort map{9+s,\n_, ,g.$_}%a

Score: 81.42 (pass)

#!perl -lp
push@{$a{8,sort/./g}},$_}for(grep s/\d\d//,sort map{8+@$_.join$",sort@$_}%a){

Score: 82.44 (pass)

#!perl -lp
push@{$a{9,sort/./g}},$_}for(grep{s/\d{2}//}sort map{8+@$_.join$",sort@$_}%a){

Score: 85.44 (pass)

#!perl -lp
push@{$a{9,sort/./g}},$_}for(grep{s/\d+//&$&>9}sort map{8+@$_.join$",sort@$_}%a){

Score: 86.40 (pass)

#!perl -ln
push@{$a{9,sort/./g}},$_}{s/\d+//&$&>9&&print for sort map{8+@$_.join$",sort@$_}%a

Score: 94.35 (pass)

#!perl -ln
push@{$a{2,sort/./g}},$_}{@$_<2||print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}map[sort@$_],%a

Score: 98.35 (pass)

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

Score: 99.33 (pass)

#!perl -ln
@a=sort/./g;$a{"@a"}=[sort@{$a{"@a"}},$_]}{map{@$_>1&&print"@$_"}sort{@$a-@$b||"@$a"cmp"@$b"}%a

Score: 101.34 (pass)

#!perl -ln
@a=sort/./g;$a{"@a"}=[sort@{$a{"@a"}},$_]}{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}%a

Score: 104.36 (pass)

#!perl -ln
END{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}%a}@a=sort/./g;$a{"@a"}=[sort@{$a{"@a"}},$_]

Score: 118.35 (pass)

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

Score: 123.35 (fail)

#!perl -ln
END{for(sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a){print join" ",@$_ if(@$_>1)}}$,=joi\
n"",sort/./g;$a{$,}=[sort@{$a{$,}},$_]