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

##</code><code>##

while (<DATA>){
  chomp; 
 my @element = split;
  my $i1=shift @element;
  my $i2=shift @element;
  my $i3=shift @element;
  my $i4=shift @element;
  shift @element; 
  shift @element; 
  my $i7=shift @element;
if(any{ $_ eq $i1} @array1A)) {print 'yes';
}elsif((any{ $_ eq $i1} @array1B)) {print 'no';
}elsif((any{ $_ eq $i2} @array2A)) {print 'yes';
}elsif((any{ $_ eq $i2} @array2B)) {print 'no';
}else{print "WTF";}
};