#!/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.

}