Anagrams

Score: 94.34 (pass)

#!perl -ln
$o{1,sort/./g}.="$_ "}{for(%o){@a=sort split;push@{$#a},"@a"}for(1..15){print for sort@$_}

Score: 102.31 (pass)

#!perl -ln
push@{$o{1,sort/./g}},$_;if(eof){for(%o){$t=@o=sort@$_;push@$t,"@o"}for(2..15){print for sort@$_}}

Score: 107.31 (pass)

#!perl -ln
push@{$o{join//,sort/./g}},$_;if(eof){for(%o){$o=@o=sort@$_;push@$o,"@o"}for(2..15){print for sort@$_}}

Score: 108.32 (pass)

#!perl -ln
push@{$o{join'',sort/./g}},$_;do{for(%o){$t=@t=sort@$_;push@$t,"@t"}for(2..15){print for sort@$_}}if eof

Score: 112.29 (pass)

#!perl -ln
push@{$o{join'',sort split''}},$_;do{for(%o){$t=@t=sort@$_;push@$t,"@t"}for(2..20){print for sort@$_}}if eof

Score: 118.27 (pass)

#!perl -ln
push@{$o{join'',sort split''}},$_;do{for(%o){$t=@t=sort@{$o{$_}};push@$t,"@t"}for(2..20){print for sort@$_}}if eof

Score: 124.26 (pass)

#!perl -ln
push@{$o{join'',sort split''}},$_;sub o{for(%o){$t=@t=sort@{$o{$_}};push@$t,"@t";}for(2..20){print for sort@$_}}o if eof

Score: 132.26 (pass)

#!perl -l
open o,pop;for(sort){chop;push@{$o{join'',sort split''}},$_}for(%o){$t=@t=@{$o{$_}};push@$t,"@t"}for(2..99){print for sort@$_}

Score: 132.27 (fail)

#!perl -l
open o,pop;for(sort){chop;push@{$o{join'',sort split''}},$_}for(%o){$t=@t=@{$o{$_}};push@$t,"@t"}for(2..10){print for sort@$_}

Score: 133.26 (fail)

#!perl -l
open o,pop;for(sort){chop;push@{$o{join'',sort split''}},$_}for(%o){$t=@t=@{$o{$_}};push@$t,"@t"}for(2..10){print for(sort@$_)}