print "@arr2";

output:
mcs
scr
tsz
unh

print "@arr1";

output:
spec.srn.1235
spec.mcs.1235


##</code><code>##

 foreach $strfile (@arr1)
       {
       @arr3 = split(/[.\n]/, $strfile);
       if (grep (/^@arr3[1]$/, @arr2)) {
          print "Entered in IF";
       }
       else
       {
          print "Entered in ELSE";
       }
       }