$ perl -Mv5.14 -e'my @a; \$a[0]; say exists( $a[0] ) || 0;'
1