perl -E 'use constant AREF => [1..4]; say "@{+AREF}"; AREF->[2] = 99; say "@{+AREF}"'

Good post, this bit in particular reminded me of the recent thread constant vector on exactly that topic.