my $sum = 0;
   for (0..@weights) {
      $weights[$_] = $weights[$_] || 0;
      $digits[$_] = $digits[$_] || 0;
      $sum += $weights[$_] * $digits[$_];
   }