sub mogrify (\$\$\$) {
    my ($xref, $yref, $zref) = @_;
    # do stuff to $$xref and friends
    1;
}

mogrify $x, $y, $z;