Select Code to Download

foreach my $item ( (@array1, @array2) ) {
   if ( $item =~ /$pattern/i ) {
      @array1 = grep { $_ != $item } @array1;
   }
}

my @toRemove;
foreach my $item ( (@array1, @array2) ) {
...
foreach my $item ( @toRemove ) {
   @array1 = grep { $_ ne $item } @array1;
}