Select Code to Download

sub score_count {
    my @arr = shift;
...
    return $total;
}

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

sub score_count {
    my $arr = shift;
...
}