@sorted = reverse sort { $a <=> $b } @score;
# or
@sorted = sort { $b <=> $a } @score;