@fool = "@array" =~ /foo/g;

##</code><code>##

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