#!/usr/local/bin/perl -w

use strict;

open(DATA, "data.txt") or die "Error opening 'data.txt' $!\n";
my @data = <DATA>;
open(KEYWORDS, '<', "keyword.txt") or die "Error opening 'keyword.txt' $!\n";
my @keywd = <KEYWORDS>;
close DATA;
close KEYWORDS;

foreach my $data ( @data )
{
  chomp($data);
  foreach my $keyword (@keywd)
  {
    chomp($keyword);
    if ( $data =~ /$keyword/i )
    {
      print "Match \$data = $data and \$keyword = $keyword\n";
    }
  }
}