Help for this page
use Data::Dumper; print Dumper(\@score);
@sorted= reverse sort { $a <=> $b } @{$score[0]};