Help for this page
if(grep($val1 =~ /$_/i,@arr1)) { print "Value is present\n" ; } else { print "Value is not present\n"; }