Select Code to Download

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

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