perl -wMstrict -E 'my @a; $a[16]=0; say @a;'