This probably isn't THE most efficient way to do this but it does what you are trying to achieve.
#!/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";
}
}
}