Anagrams

Score: 110.31 (pass)

#!perl -ln
END{map{@_=sort@$_;push@{$s[@_]},"@_"}values%s;map{/ /&&print}map{sort@$_}@s}push@{$s{"",sort+split//}},$_

Score: 112.32 (pass)

#!perl -ln
END{map{@_=sort@$_;push@{$f[@_]},"@_"}values%f;map{print}map{sort@$_}@f[2..@f]}push@{$f{"",sort+split//}},$_

Score: 116.32 (pass)

#!perl -ln
END{map{@_=sort@$_;push@{$f[@_]},"@_"}values%f;map{print}map{sort@$_}@f[2..@f]}push@{$f{join"",sort+split//}},$_

Score: 124.34 (pass)

#!perl -ln
END{push@{$f[@$v]},join" ",sort@$v while($k,$v)=each%f;map{print}map{sort@$_}@f[2..@f]}push@{$f{join"",sort+split//}},$_

Score: 128.33 (pass)

#!perl -ln
END{$f[@$v]{$k}=join" ",sort@$v while($k,$v)=each%f;map{print}map{sort+values%$_}@f[2..@f]}push@{$f{join"",sort+split//}},$_

Score: 177.24 (fail)

#!perl -ln
END{map{print}map{sort+keys%$_}@e[2..@e]}open+D,D;%e=map{chop;$_,$_};@s="";@s=map{my@o;s;;$o[@o]=$`.$c.$';ge;@o}@s,while$c=chop;@s=grep{delete$e{$_}}sort@s;$e[@s]{"@s"}=1

Score: 228.22 (fail)

#!perl -ln
END{map{print}map{sort+keys%$_}@e[2..@e]}open+D,D;%e=map{chop;$_,$_};@s="";@s=map{my@o;s;;$o[@o]=$`.$c.$';ge;@o}@s,while$c=chop;@s=grep{delete$e{$_}}sort@s;$e[@s]{"@s"}=1
#Note: Dictionary expected to be found in file 'D'