use Tie::ArrayXYZ;

tie @array, 'Tie::ArrayXYZ', $some_xyz;
# ...
tied(@array)->CHANGEXYZ($new_xyz);