@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";
[download]