sub score_count {
    my @arr = shift;
    my $total = 0;
    foreach my $score (@arr) {
      print "@$score ";
    $total += @$score;
    }
    print "$total\n";
    return $total;
}