Anagrams

Score: 99.36 (pass)

#!perl
chop,push@{$p{join'',sort/./g}},$_ for sort<>;@$_>1&&print"@$_\n"for sort{@$a-@$b||"@$a"cmp"@$b"}%p