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


##</code><code>##

    foreach my $score (@arr) {
      foreach my $i (@$score) {
          $total += $i;
      }
    }

##</code><code>##

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