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";}
};