my $dx = $x2 - $x1; my $dy = $y2 - $y1; my $dz = $z2 - $z1; return sqrt( $dx**2 + $dy**2 + $dz**2 );