Anagrams

Score: 79.42 (pass)

#!perl
$f{z,sort/./g}.=$_ for<>;s/.\d//&&print for sort map{@r=sort/.+/g;8+@r."@r
"}%f

Score: 107.38 (pass)

#!perl -nl
*t=\@{$d{0,sort split//}};@t=sort@t,$_;END{@$_-1&&print"@$_"for sort{@$a<=>@$b||"@$a"cmp"@$b"}values%d}

Score: 128.38 (pass)

#!perl -n
chomp;$t=\@{$d{join('',sort split//)}};@$t=sort@$t,$_;END{print"@$_
"for sort{@$a<=>@$b||@$a[0]cmp$$b[0]}grep{@$_>1}values%d}