@dist = map sqrt($x[$_]**2+$y[$_]**2+$z[$_]**2), 0..$#x;