Anagrams

Score: 101.33 (pass)

#!perl -nl
push@{$n{join'',sort split''}},$_;END{$j{8+@$_.join' ',sort@$_}=8for%n;s'.\d''&&print for sort%j}

Score: 106.34 (pass)

#!perl -nl
push@{$n{join'',sort split''}},$_;END{$n{8+@$_.join' ',sort@$_}=8for%n;s'.\d''&&print for sort keys%n}

Score: 106.34 (pass)

#!perl -nl
push@{$n{join'',sort split''}},$_;END{$n{8+@$_.join' ',sort@$_}=8for%n;s'.\d''&&print for sort keys%n}

Score: 107.34 (pass)

#!perl -nl
push@{$n{join'',sort split''}},$_;END{$j{8+@$_.join' ',sort@$_}=8for%n;s'\d\d''&&print for sort keys%j}

Score: 107.35 (pass)

#!perl -nl
push@{$n{join'',sort split''}},$_;END{$j{8+@$_.join' ',sort@$_}=8for%n;s/\d\d//&&print for sort keys%j}

Score: 108.36 (fail)

#!perl -nl
push@{$n{join'',sort split''}},$_;END{$y{9+$#$_.join' ',sort@$_}=9for%z;s/\d\d//&&print for sort keys%y}

Score: 127.35 (pass)

#!perl -nl
push@{$z{join'',sort split''}},$_;END{$y{9+$#{$_}.(sort@{$_})[0]}=join' ',sort@{$_}for%z;/1|2/&&print$y{$_}for sort keys%y}

Score: 129.29 (fail)

#!perl -nl
push@{$z{join'',sort split''}},$_;END{$y{9+$#{$_}.join' ',sort@{$_}}=join' ',sor
t@{$_}for%z;/ /&&print$y{$_}for sort keys%y}

Score: 130.29 (fail)

#!perl -nl
push@{$z{join'',sort split''}},$_;END{$y{$#{$_}.join' ',sort@{$_}}=join' ',sort@
{$_}for(%z);/ /&&print$y{$_}for(sort keys%y)}