use strict;
use warnings;

my %include = (	A => 'yes',
		B => 'no',
		C => 'yes',
		D => 'yes',
		E => 'no');

my $yes_count = grep /^yes$/, values %include;
print "There are $yes_count elements with 'yes'\n";