@reduced_protein = shift (\@reduced_protein,($x2-$x1),($y2-$y1),($z2-$z1));