foreach $strfile (@arr1) {

    @arr3 = split(/[.\n]/, $strfile);

    if (grep (/^@arr3[1]$/, @arr2)) {
        print "Entered in IF";
    }
    else {
        print "Entered in ELSE";
    }
}

##</code><code>##