Anagrams

Score: 124.34 (pass)

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

Score: 125.34 (pass)

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

Score: 133.33 (pass)

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