Anagrams

Score: 98.45 (fail)

#!perl -ln
push@{$p{"@{[sort/./g]}"}},$_;END{s/\d+//,print foreach sort map@$_>1?"$#$_@{[sort@$_]}":(),%p

Score: 98.46 (pass)

#!perl -ln
push@{$o{"@{[sort/./g]}"}},$_;END{s/\d+//,print
for
sort
map@$_>1?10+@$_."@{[sort@$_]}":(),%o}

Score: 103.44 (pass)

#!perl -ln
push@{$p{"@{[sort/./g]}"}},$_;END{s/\d+//,print foreach sort map@$_>1?10+$#$_."@{[sort@$_]}":(),%p}

Score: 107.41 (fail)

#!perl -ln
push@{$p{"@{[sort/./g]}"}},$_;END{print foreach map{s/\d+//;$_}sort map{@$_>1?"$#$_@{[sort@$_]}":()}%p}

Score: 113.38 (pass)

#!perl -ln
push@{$p{"@{[sort/./g]}"}},$_;END{print"@$_"foreach sort{@$a<=>@$b or"@$a"cmp"@$b"}map{@$_>1?[sort@$_]:()}%p}