Anagrams

Score: 82.43 (pass)

#!perl
$s{2,sort/./g}.=$_ for sort<>;for$s(2..22){$s-split||print"@_\n"for sort values%s}

Score: 93.39 (pass)

#!perl
$s{join2,sort/./g}.=$_.$"for sort<>;for$s(2..22){(@s=split)-$s||print"@s\n"for sort values%s}

Score: 95.40 (pass)

#!perl
$s{join2,sort/./g}.=$_.$"for sort<>;for$.(1..22){@s=split,$#s-$.||print"@s\n"for sort values%s}

Score: 103.38 (pass)

#!perl
$,=chop,$w{join1,sort/./g}.=$_.$"for sort<>;chop%w;print((grep{$w==y/ //}sort values%w),'')while$w++<55

Score: 104.38 (pass)

#!perl
$,=chop,$h{join'',sort/./g}.=$_.$"for sort<>;chop%h;print((grep{$c==y/ //}sort values%h),'')while$c++<15

Score: 137.30 (pass)

#!perl -l
chop,$i{$k=join'',sort/./g}++,$h{$k}.=$_.$"for sort<>;chop%h;for$c(2..15){print$h{$_}for sort{$h{$a}cmp $h{$b}}grep{$c==$i{$_}}keys%h}

Score: 148.28 (pass)

#!perl -l
chop,$i{$k=join'',sort/./g}++,$j{$k}||=$_,$h{$k}.=$_.$"for sort<>;chop%h;for$c(2..15){print$h{$_}for sort{$j{$a}cmp$j{$b}}grep{$c==$i{$_}}keys%h}