$ perl -E'$#a=5; for (1..2) { say exists($a[3])?1:0; \$a[3]; }'
0
1