#!/usr/bin/perl

use strict;

my @array = ("foo {abc123}\n", "bar {def456}\n", "baz {ghi789}\n");

my @array2 = ("foo", "bar", "quux");

foreach my $i (@array) {

  chomp $i;

  print "checking $i\n";

  if ($i =~ m/@array2/) {

     print "$i is in array2 - skipping\n";
     next;

  } 

  # Do something with $i now.

}


##</code><code>##

my $regex = "(";
foreach (@array2) {
  $regex .= $_ . "|";
}
$regex .= ")";

##</code><code>##

if ($i =~ m/$regex/) {

##</code><code>##

#!/usr/bin/perl

use strict;

my @array = ("foo {abc123}\n", "bar {def456}\n", "baz {ghi789}\n");

my @array2 = ("foo", "bar", "quux");

OUTTER: foreach my $i (@array) {

  chomp $i;

  print "checking $i\n";

  foreach my $j (@array2) {

    if ($i =~ m/$j/) {

      print "$i is in array2 (matches $j) - skipping\n";
      next OUTTER;

    }

  }

  print "$i IS NOT IN ARRAY 2\n";
# Do something with $i now.

}