foreach ( sort { $scores{$b} <=> $scores{$a} } keys %scores )