my $fool = grep $_ eq 'foo', @array;