foreach (@keywords)
  {
    if($str =~ m/($_)/gi ) {
        $i++;
        ##print "Keyword gefunden
    }
  }