@sorted= reverse sort { $a <=> $b } (@score[0]);
print @sorted;