my $ok = grep {/Some String/} @anArray;