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