my @bar = (undef, 'a');
print(defined($bar[0])?1:0, "\n");  # 0
print(defined($bar[1])?1:0, "\n");  # 1
print(defined($bar[2])?1:0, "\n");  # 0 (doesn't exist)