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