my @array = qw(foo bar food foofighters kung-foo);
my $count_foo = grep (/foo/, @array);
print "$count_foo\n";

##</code><code>##

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