sub by_score { $score{$b} <=> $score{$a} }