Help for this page
foreach ( sort { $scores{$b} <=> $scores{$a} } keys %scores )
$expr = (CONDITION) ? "$scores{$b} <=> $scores{$a}" : $scores{$a} <=> +$scores{$b}