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