for(0..3) {
#here
    ($sums[$i])->[$_][$j] += $vals[$_+1];
    if ($ts >= 21) {
      $sums[$i]->[4][$j] += $vals[5];
      $sums[$i]->[5][$j] += $vals[6];
    }
  }
#and here
  $totals[$i]->[$j]->[0]++;