sub Normalize {
   my $v = shift;
   my $vSquared = InProduct($v, $v);
   my $divisor = ... square root of  sum of components of vSquared ...
   my $newVec1 = ... vector created by components of v divided by positive divisor ...
   my $newVec2 = ... vector created by componets of v divided by negative divisor ...
   .... whatever else is needed ...
   return $stuff;
}

my @dipoleMomentVectors = Normalize($dipoleMoment);