Anagrams

Score: 108.36 (pass)

#!perl -ln
END{$#$_&&print"@$_"for sort{@$a-@$b||@$a[0]cmp@$b[0]}values%a}$a{$a}=[sort$_,@{$a{$a="@{[sort/./g]}"}}]

Score: 112.34 (pass)

#!perl -ln
END{print"@$_"for sort{@$a-@$b||@$a[0]cmp@$b[0]}grep@$_-1,values%a}$a{$a}=[sort@{$a{$a="@{[sort/./g]}"}},$_]

Score: 113.35 (pass)

#!perl -ln
$a{$a}=[sort@{$a{$a="@{[sort/./g]}"}},$_];END{print"@$_"for sort{@$a-@$b||@$a[0]cmp@$b[0]}grep@$_>1,values%a}

Score: 120.33 (pass)

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

Score: 122.32 (pass)

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

Score: 124.31 (pass)

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

Score: 124.32 (pass)

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

Score: 154.26 (pass)

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