sub map_scalars_onto_array(\@@) {
   my $array = shift;
   alias $array->[$_] = $_[0] for 0..$#_;
}

map_scalars_onto_array my @local_array, my ($x, $y, $z);