Let's say the @fruit array contains 4 elements.

my @fruit = qw(orange apple peach pear);

In this example, the $count variable will contain the number of elements in the @fruit array.

my $count = "";
$count = @fruit;

You can print the $count variable;

print $count;

Which will return 4, meaning there are 4 elements in the @fruit array.

4

The undef operator can be used to remove all of the values from the array. Once undefined, the array will no longer contain any values.

undef @fruit;

The $count variable can be used again to contain the number of elements in the @fruit array.

$count = @fruit;

You can print the $count variable;

print $count;

Which should return 0, meaning there are now 0 elements in the @fruit array.

0