Anagrams

Score: 7.86 (fail)

#!perl -lnaF//

Score: 103.37 (pass)

#!perl -ln
push@{$a{join"",sort split//}},$_;END{map{s/~//g>1&&print}sort map{@a=sort@$_;"~"x@a."@a"}values%a}

Score: 105.36 (pass)

#!perl -ln
push@{$_{join"",sort split//}},$_;END{map{print if s/~//g>1}sort map{@_=sort@$_;"~"x@_."@_"}values%_}

Score: 105.40 (fail)

#!perl -lnaF//
push@{$w{join"",sort@F}},$_;END{for(sort map{@v=sort@$_;"~"x@v."@v"}values%w){print if s/~//g>1}}

Score: 108.35 (pass)

#!perl -ln
push@{$_{join"",sort split//,$_}},$_;END{map{print if s/~//g>1}sort map{@_=sort@$_;"~"x@_."@_"}values%_}

Score: 125.36 (fail)

#!perl -lnaF//
push@{$w{join"",sort@F}},$_;END{$,=" ";for(sort{@$a<=>@$b||"@$a"cmp"@$b"}map{[sort@$_]}@w{keys%w}){print@$_ if@$_>1}}