@FirstArray=qw(A B C D); @SecondArray=qw(D E F B); foreach $pr (@FirstArray){ #print "Property: $pr\n"; @match=(); @match=grep(/$pr/,@SecondArray); if (!@match){ push(@UniqueInFirstArrayNotFoundInSecondArray,$pr); } else { push(@FoundInBothArrays,$pr); } } print "".join("\n",@UniqueInFirstArrayNotFoundInSecondArray)."\n"; print "".join("\n",@FoundInBothArrays)."\n";