sub delete_thefruits

my $collection;
my $criteria;