Anagrams

Score: 107.36 (pass)

#!perl -nl
$w{1,sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}%w

Score: 107.36 (pass)

#!perl -nl
$w{1,sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}%w

Score: 112.35 (pass)

#!perl -nl
$w{join'',sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}%w

Score: 118.36 (pass)

#!perl -nl
$w{join'',sort/./g}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}values%w

Score: 122.33 (pass)

#!perl -nl
$w{join'',sort split''}.=" $_"}{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort split]}values%w

Score: 126.34 (pass)

#!perl -nl
push@{$w{join'',sort split//}},$_;END{$,=' ';@$_>1&&print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}values%w}

Score: 127.35 (pass)

#!perl -nl
push@{$w{join'',sort split//}},$_;END{$,=' ';(@$_>1&&print@$_)for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}values%w}

Score: 130.33 (pass)

#!perl -nl
push@{$w{join'',sort split//}},$_;END{$,=' ';print@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}map{[sort@$_]}grep{@$_>1}values%w}