> perl -we '$a[4]=1; print shift @a; '
Use of uninitialized value within @a in print at -e line 1.