Anagrams

Score: 85.42 (pass)

#!perl
map{$s{join'',sort/./g}=~s/.*/1$& $_/}sort<>;map{y/
//s;s/.1+ //&&print}sort values%s

Score: 87.44 (pass)

#!perl
map{$s{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{y/
//s;s/.1+ //&&print}sort values%s

Score: 88.43 (pass)

#!perl
map{$s{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{y/\n//s;s/.1+ //&&print}sort values%s

Score: 90.42 (pass)

#!perl
map{$F{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{s/\n+/\n/;s/.1+ //&&print}sort values%F

Score: 91.43 (pass)

#!perl -l
map{$F{join'',sort/./g}=~s/(.*)/1$1 $_/}sort<>;map{s/\n//g;s/.1+ //&&print}sort values%F

Score: 94.37 (pass)

#!perl 
map{$F=join'',sort/./g;$F{$F}="1$F{$F} $_"}sort<>;map{s/\n / /g;s/.1+ //&&print}sort values%F

Score: 97.35 (pass)

#!perl -ln
@F=sort/./g;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{

Score: 99.33 (fail)

#!perl -lnaF//
@F=sort@F;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{

Score: 99.33 (fail)

#!perl -lnaF''
@F=sort@F;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{

Score: 101.33 (pass)

#!perl -ln
@F=sort split//;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print}sort values%F;{

Score: 116.34 (pass)

#!perl
while(<>){chop;@F=sort split//;$F{"@F"}=join' ',sort$_,split/ /,"1".$F{"@F"}}map{s/.1+ //&&print"$_\n"}sort values%F