my $sum = 0;
  $sum += $x->[$_] * $y->[$_] * $z->[$_] for 0 .. $#$x;
  return $sum;