Anagrams

Score: 93.39 (pass)

#!perl -l
$m{1,sort/./g}.=$_ for sort<>;push@{$a[y/
/ /]},$_ for%m;map{chop;/ /&&print}sort@$_ for@a

Score: 94.38 (pass)

#!perl -l
map{$m{1,sort/./g}.=$_}sort<>;push@{$a[y/
/ /]},$_ for%m;map{chop&&/ /&&print}sort@$_ for@a

Score: 95.37 (pass)

#!perl -l
map{$m{1,sort/./g}.=$_}sort<>;push@{$a[s/
/ /g]},$_ for%m;map{chop&&/ /&&print}sort@$_ for@a

Score: 101.37 (pass)

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

Score: 112.34 (pass)

#!perl -l
chop(@_=<>);$x{1,sort/./g}.="$_ "for sort@_;for(sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}%x){chop;/ /&&print}

Score: 113.35 (pass)

#!perl -l
chop(@_=<>);$x{1,sort/./g}.="$_ "for sort@_;for(sort{$a=~s/ / /g<=>$b=~s/ / /g||
$a cmp$b}%x){chop;/ /&&print}

Score: 124.35 (pass)

#!perl -l
chomp(@_=<>);
$x{1,sort/./g}.="$_ "for sort@_;
for(sort{$a=~s/ / /g<=>$b=~s/ / /g||$a cmp$b}values%x){chop;/ ./&&print$_}