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