Select Code to Download

my @a;
$a[1] = undef;
...
print("0: ", exists($a[0]) ?1:0,"\n");  # 0
print("1: ", exists($a[1]) ?1:0,"\n");  # 1
print("3: ", exists($a[3]) ?1:0,"\n");  # 0