perl -e '$x[-1] = 0;'
__OUTPUT__
Modification of non-creatable array value attempted, subscript -1 at -e line 1.