Anagrams

Score: 96.40 (fail)

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

Score: 96.40 (pass)

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

Score: 107.34 (pass)

#!perl
chop,push@{$s{join"",sort split""}},$_ for sort<>;@$_>1&&print"@$_\n"for sort{@$a<=>@$b||$$a[0]cmp$$b[0]}%s

Score: 145.28 (pass)

#!perl
chop,push@{$w{"@{[sort split'']}"}},$_ for sort<>;print map{"@w\n"if(@w=@{$w{$_}})>1}sort{(@a=@{$w{$a}})<=>(@b=@{$w{$b}})or($a[0]cmp$b[0])}keys%w