Anagrams

Score: 72.39 (pass)

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

Score: 86.36 (pass)

#!perl
push@{$o[$o{chop,sort/./g}||=2+@o]},$_ for sort<>;$_[@$_].="@$_$/"for@o;print@_[2..22]

Score: 98.36 (pass)

#!perl
map{chop;push@{$o[$o{"@{[sort/(.)/g]}"}||=2+@o]},$_}sort<>;for$o(2..22){@$_-$o||print"@$_$/"for@o}