sub contains {
  my ($file, $search) = @_;

  open my $fh, '<', $file or die $!;

  while (<$fh>) {
    return 1 if /$search/;
  }

  return;
}

my @files = grep { contains($_, $search_str) } @arr1;