Anagrams

Score: 79.39 (pass)

#!perl
map$j{join"",sort/./g}.=$_,sort<>;print+grep{s/.\d//}sort+map+8+split."@_\n",%j

Score: 80.39 (pass)

#!perl
map$j{join"",sort/./g}.=$_,sort<>;print+grep{s/\d\d//}sort+map+8+split."@_\n",%j

Score: 85.40 (pass)

#!perl
map$j{join"",sort/./g}.=$_,<>;print grep{s/\d\d//}sort map+8+split."@{[sort@_]}\n",%j

Score: 90.40 (pass)

#!perl
map$j{join"",sort/./g}.=$_,<>;print grep/ /&s/\d+//,sort map{split;7*@_."@{[sort@_]}\n"}%j

Score: 91.40 (pass)

#!perl
map$j{join'',sort/./g}.=$_,<>;print grep/ /&s/\d+//,sort map{split;$=*@_."@{[sort@_]}\n"}%j

Score: 96.40 (pass)

#!perl
map$h{join'',sort/./g}.=$_,<>;print for grep/ /&&s/\d+//,sort map{split;$=*@_."@{[sort@_]}\n"}%h

Score: 97.39 (pass)

#!perl -nl
END{print for grep/ /&&s/\d+//,sort map$=*@$_."@{[sort@$_]}",%h}push@{$h{"@{[sort/./g]}"}},$_

Score: 104.35 (pass)

#!perl -nl
END{print"@$_"for grep@$_>1,sort{@$a-@$b||"@$a"cmp"@$b"}%s}$s{$s}=[sort$_,@{$s{$s="@{[sort/./g]}"}}]

Score: 107.33 (pass)

#!perl -n
END{$_[@$_]{"@$_\n"}=''for%h;print sort%{$_[$_]}for+2..@_}chop;$h{$x}=[sort$_,@{$h{$x="@{[sort/./g]}"}}]

Score: 114.35 (pass)

#!perl -n
END{$_[@$_]{"@$_\n"}=''for values%h;print sort%{$_[$_]}for+2..@_}chop;$h{$x}=[sort$_,@{$h{$x="@{[sort/./g]}"}}]

Score: 122.34 (pass)

#!perl -n
chop;$x=join"",sort$_=~/./g;$h{$x}=[sort$_,@{$h{$x}}];END{$_[@$_]{"@$_\n"}=''for values%h;print sort%{$_[$_]}for+2..@_}

Score: 130.34 (pass)

#!perl -n
chop;$x=join"",sort$_=~/./g;$h{$x}=[sort$_,@{$h{$x}}];END{while(($_,$v)=each%h){$a[@$v]{"@$v\n"}=''if@$v>1}print sort%$_ for@a}