Select Code to Download

 print "@arr2";

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

 foreach $strfile (@arr1)
       {
       @arr3 = split(/[.\n]/, $strfile);
...
          print "Entered in ELSE";
       }
       }