Help for this page
@reduced_protein = shift (\@reduced_protein,($x2-$x1),($y2-$y1),($z2-$ +z1));
some_package::shift(\@reduced_protein, ...);