Anagrams

Score: 100.36 (pass)

#!perl
chop,$s{join"",sort split//}.="$_ "for sort<>;/ $/,$a[y/ / /].=$`.$/for sort values%s;print@a[2..@a]

Score: 101.37 (pass)

#!perl
chop,$s{join"",sort split//}.="$_ "for sort<>;/ $/,$a[y/ / /].="$`\n"for sort values%s;print@a[2..@a]

Score: 102.34 (pass)

#!perl
chop,$s{join"",sort split""}.="$_ "for sort<>;s; $;\n;,$a[y; ; ;].=$_ for sort values%s;print@a[1..@a]