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