my @array;

$array[4] = 0;
print "   Set element 4: last at $#array\n";

$array[2] = undef;
delete $array[4];
print "Delete element 4: last at $#array\n";
delete $array[2];
print "Delete element 2: last at $#array\n";