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

##</code><code>##

some_package::shift(\@reduced_protein, ...);