Anagrams

Score: 102.35 (pass)

#!perl
push@{$a{sort(/(.)/g),a}},/(.+)/for+sort<>;print"@$_\n"for+sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,%a;

Score: 102.36 (pass)

#!perl
push@{$a{sort(/(.)/g),a}},/(.+)/for sort<>;print"@$_\n"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,%a;

Score: 103.37 (pass)

#!perl
push@{$a{sort(split""),a}},/(.+)/for sort<>;print"@$_\n"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,%a;

Score: 111.32 (pass)

#!perl
map{chop,push@{$a{sort(split""),1}},$_}sort<>;print"@$_\n"for sort{@$a<=>@$b||"@$a"cmp"@$b"}grep@$_>1,values%a;

Score: 123.31 (pass)

#!perl
chop,push@{$h{sort(split//),1}},$_ while<>;print map"@$_\n",sort{@$a<=>@$b or"@$a"cmp"@$b"}map[sort@$_],grep@$_>1,values%h;