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

##</code><code>##

perl -e '@x = ( 1, 2, 3 ); $x[-4] = 0;'