in reply to Loop through 2 files in parallel
@arr1=<FILE>; @arr2=<FILE2>; for $letter(A..Z) { if(grep($letter, @arr1) or grep($letter,@arr2) { print "$letter" } print "\n"; } [download]