@arr1=<FILE>;
@arr2=<FILE2>;
for $letter(A..Z) {
 if(grep($letter, @arr1) or grep($letter,@arr2) {
   print "$letter"
 }
 print "\n";
}