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