my @a;
$a[1] = undef;
$a[2] = 'foo';

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