Anagrams

Score: 68.44 (pass)

#!perl
map$a{a,sort/./g}.=$_,sort<>;map$p[split].="@_
"x/
./,sort%a;print@p

Score: 68.47 (pass)

#!perl
map$a{a,sort/./g}.=$_,sort<>;$p[split].="@_
"x/
./for sort%a;print@p

Score: 72.44 (pass)

#!perl
map$m{p,sort/./g}.=$_,sort<>;$a[s/
(.)/ $1/g].=$_ x/ /for sort%m;print@a

Score: 73.44 (pass)

#!perl
map$p{p,sort/./g}.=$_,sort<>;$a[s/\n(.)/ $1/g].=$_ x/ /for sort%p;print@a

Score: 76.38 (fail)

#!perl
map$f{f,sort/./g}.=$_,sort<>;map$o{s/\n(.)/ $1/sg}.=$_,sort%f;print@o{1..$.}

Score: 77.38 (pass)

#!perl
map$p{p,sort/./g}.=$_,sort<>;$a{s/\n(.)/ $1/sg}.=$_ for sort%p;print@a{1..$.}

Score: 86.41 (pass)

#!perl
$f{f,sort/./g}.=$_ for<>;for$i(2..$.){print sort map$i==y/\n//&&"@{[sort/.+/g]}\n",%f}

Score: 91.33 (pass)

#!perl
$f{f,sort/./g}.=$_,for<>;$o{y/\n//}.="@{[sort/.+/g]}$/2"for%f;print+sort/\D+/g,for@o{2..$.}

Score: 93.33 (pass)

#!perl
$f{f,sort/./g}.=$_ for<>;$o{y/\n/\n/}.="@{[sort/.+/g]}$/2"for%f;print sort/\D+/g for@o{2..$.}

Score: 99.30 (pass)

#!perl
push@{$p{p,sort/./g}},$_ for<>;push@{$u{chomp@$_}},"@{[sort@$_]}$/"for%p;print sort@$_ for@u{2..$.}

Score: 104.29 (pass)

#!perl
push@{$p{"@{[sort/./g]}"}},$_ for<>;push@{$u{chomp@$_}},"@{[sort@$_]}$/"for%p;print sort@$_ for@u{2..$.}

Score: 104.31 (pass)

#!perl
push@{$q{"@{[sort/./g]}"}},$_ for<>;push@{$w{chomp@$_}},"@{[sort@$_]}$/"for%q;print sort@$_ for@w{2..$.}