@a = (1,2,3); delete $a[1]

##</code><code>##

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

##</code><code>##

(1)
()
(3)

##</code><code>##

@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";

##</code><code>##

I'm gone
I'm here