@arr=('cool','guy','here');
$str1="I am cool";
foreach my $tmp(@arr){
   if($str1=~m/$tmp/){
      print "Matched";
      last;
   }
}