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