$a[7] = undef;

pop(@a);