use Data::Dumper;
print Dumper(\@score);

##</code><code>##

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