my $count_foo = scalar @fool;

##</code><code>##

my $count_foo = grep (/foo/, @array);

##</code><code>##

my @array = qw(foo bar food foofighters kung-foo);

##</code><code>##

my $count_foo = grep { $_ eq 'foo' } @array;