Anagrams

Score: 111.33 (pass)

#!perl -lp
@{$a{$b}}=sort@{$a{$b="@{[sort/./g]}"}},$_}{$\='';@$_>1and$\.="@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a

Score: 111.33 (pass)

#!perl -lp
@{$a{$b}}=sort@{$a{$b="@{[sort/./g]}"}},$_}{$\='';@$_>1and$\.="@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%a

Score: 119.32 (pass)

#!perl
chomp,push@{$a{"@{[sort/./g]}"}},$_ for<>;print map"@$_\n",sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}grep@$_>1,%a

Score: 125.34 (pass)

#!perl
chomp,push@{$a{join'',sort/./g}},$_ for<>;print map"@$_\n",sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}grep@$_>1,values%a