Anagrams

Score: 99.37 (pass)

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

Score: 101.38 (pass)

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

Score: 101.39 (pass)

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