my $sum = 0;
      foreach my $i ( 0 .. $#$x ){
        $sum += $x->[$i] * $y->[$i] * $z->[$i];
      }
      return $sum;