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