Select Code to Download

#!/usr/bin/perl
use warnings;
...
Output:
Entered in ELSE Loop
Entered in IF Loop

    if (grep (/^$arr3[1]$/, @arr2)) {
        print "Entered in IF Loop: /^$arr3[1]\$/ found in (@arr2)\n";
    } else {
        print "Entered in ELSE Loop: /^$arr3[1]\$/ not found in (@arr2
+)\n";
    }