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