sub shiftProtein
{
    my (
       $ref_to_reduced_protein,
       $shift_x,
       $shift_y,
       $shift_z
       ) = @_;
    my @reduced_protein = @$ref_to_reduced_protein;
    ...