my @numbers= (6, 1, -3, 7, -1290);
@sorted= reverse sort { $a <=> $b } (@numbers);
print @sorted;

##</code><code>##

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

##</code><code>##

@score= split(/\s/, @score[0]);