my @array = qw/tiger dog cat/;
delete $array[1];
print scalar @array; # Output is 3
delete $array[2];
print scalar @array; # Output is 1