Anagrams

Score: 123.32 (pass)

#!perl
map$l{join'',sort split//}.=$_,sort@l=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%l){print if s/\n(?!$)/ /g}

Score: 124.31 (pass)

#!perl
map{$l{join'',sort split//}.=$_}sort@l=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%l){print if s/\n(?!$)/ /g}

Score: 124.34 (pass)

#!perl
map{$h{join"",sort split//}.=$_}sort@w=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){print if s/\n(?!$)/ /g}

Score: 141.30 (pass)

#!perl
map{$h{join"",sort split//}.=$_}sort@w=<>;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){s/\n(?!$)/ /g,print if((split' ',$_)>1)}

Score: 149.27 (pass)

#!perl
chop(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){chop,print"$_\n"if((split' ',$_)>1)}

Score: 152.26 (pass)

#!perl
chomp(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){s/ $//,print"$_\n"if((split' ',$_)>1)}

Score: 155.26 (pass)

#!perl
chomp(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h){s/ $//,$_,print"$_\n"if((split' ',$_)>1)}

Score: 160.26 (pass)

#!perl
chomp (@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;do{s/ $//,$_,print "$_\n"if((split' ',$_)>1)}for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h);

Score: 170.25 (pass)

#!perl
chomp(@w=<>);map{$h{join"",sort split//}.="$_ "}sort@w;chop$h{$_}for(keys%h);do{print"$_\n"if((split' ',$_)>1)}for(sort{(split' ',$a)<=>(split' ',$b)||$a cmp$b}values%h);