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