Something like:

use 5.010;
my @searches = qw/[945850] [945851] [945852]/;
my $found = 1;
foreach my $s (@searches) {
    $found &&= /\Q $s / ~~ @dataArray;
}
say $found ? "Found ALL SEARCH STRINGS required in ARRAY"
           : "Did not find all needed search strings";
[download]