Anagrams

Score: 114.34 (pass)

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

Score: 115.34 (pass)

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