Anagrams

Score: 124.28 (pass)

#!perl -l
map{chop;push@{$w{join'',sort split//}},$_}<>;map{$#$_&&push@{$o[$#$_]},join' ',sort@$_}values%w;map{map{print}sort@$_}@o

Score: 125.28 (pass)

#!perl -l
map{chop;push@{$w{join'',sort split//}},$_}<>;map{$#$_&&push@{$o[$#$_]},join' ',sort@$_}values%w;map{map{print}sort@$_}@o;

Score: 140.25 (pass)

#!perl -l
map{chop;push@{$w{join'',sort split//}},$_}<>;map{$#$_&&push@{$o{$#$_}},join' ',sort@$_}values%w;map{map{print}sort@{$o{$_}}}sort keys%o;

Score: 148.26 (fail)

#!perl -l
while(<>){chop,push@{$w{join'',sort split//}},$_}for(values%w){($l=$#$_)&&push@{$o{$l}},join' ',sort@$_}for(keys%o){print join"\n",sort@{$o{$_}}}

Score: 150.26 (pass)

#!perl -l
while(<>){chop;push@{$w{join'',sort split//}},$_}for(values%w){$#$_&&push@{$o{$#$_}},join' ',sort@$_}for(sort keys%o){print join"\n",sort@{$o{$_}}}

Score: 161.25 (fail)

#!perl -l
while(<>){chop;push@{$w{join('',sort(split(//)))}},$_}for(values%w){($l=$#$_)&&push@{$o{$l}},join(' ',sort(@$_))}for(keys%o){print join("\n",sort(@{$o{$_}}))}

Score: 163.25 (fail)

#!perl -l
while(<>){chomp;push@{$w{join('',sort(split(//)))}},$_}for(values%w){$l=$#$_;$l&&push@{$o{$l}},join(' ',sort(@$_))}for(keys%o){print join("\n",sort(@{$o{$_}}))}

Score: 211.20 (fail)

#!perl
while(<>){chomp;$l=join('',sort(split(//,$_)));if($w{$l}){push@{$w{$l}},$_}else{$w{$l}=[$_]}}for(values%w){if($#{$_}>0){push@{$o{$#{$_}}},join(' ',sort(@$_));}}for(keys%o){print join("\n",sort(@{$o{$_}})),"\n";}