Anagrams

Score: 91.38 (pass)

#!perl -pl
push@{$w{0,sort/./g}},$_}@$_>1&&push@{$x[@$_]},"@{[sort@$_]}"for%w;for(map{sort@$_}@x){

Score: 92.37 (pass)

#!perl -pl
push@{$w{0,sort/./g}},$_}push@{$x[@$_]},"@{[sort@$_]}"for%w;for(map{sort@$_}@x[2..$#x]){

Score: 108.37 (pass)

#!perl -pl
push@{$w{(0,sort/./g)}},$_}for(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep+(@$_=sort@$_)>1,values%w){$_="@$_"

Score: 111.40 (pass)

#!perl -pl
push@{$w{join'',sort/./g}},$_}for(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep+(@$_=sort@$_)>1,values%w){$_="@$_"

Score: 116.37 (pass)

#!perl -pl
push@{$w{join'',sort split//}},$_}for(sort{@$a<=>@$b||$a->[0]cmp$b->[0]}grep+(@$_=sort@$_)>1,values %w){$_="@$_"