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

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

##</code><code>##

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

##</code><code>##

my $regex = "(";
$regex .= join "|", @array2;
$regex .= ")";