Select Code to Download

@a = (1,2,3);
delete $a[1];
print "($_)\n" for @a;

(1)
()
(3)

@a = (1,2,3);
delete $a[1];
print "I'm ", exists $a[1] ? "here" : "gone";
...
@b = (1,2,3);
$b[1] = undef;
print "I'm ", exists $b[1] ? "here" : "gone";

I'm gone
I'm here