Anagrams

Score: 110.32 (fail)

#!perl -n
$_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //.$a
cmp$b=~y/ //.$b}map"@{[sort split]}
",values%_

Score: 111.31 (fail)

#!perl -n
$_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //.$a cmp$b=~y/ //.$b}map"@{[sort split]}\n",values%_

Score: 111.32 (pass)

#!perl -n
$_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a
cmp$b}map"@{[sort split]}
",values%_

Score: 112.31 (pass)

#!perl -n
$_{"@{[sort split//]}"}.=$_}{map/ /&&print,sort{$a=~y/ //-$b=~y/ //||$a cmp$b}map"@{[sort split]}\n",values%_