Select Code to Download

@array1A=qw(a b c d);
@array1B=qw(p z e t i u);
@array_of_arrays=(@array1A, @array1B, @array2A,@array2B…@arrayNA,@arra
+yNB);

while (<DATA>){
  chomp; 
...
}elsif((any{ $_ eq $i2} @array2B)) {print 'no';
}else{print "WTF";}
};