...
my %keywdHash;

@keywdHash{@keywd}= (); # Use a hash slice to initialise the hash

for my $element (@data) {
    if (exists $keywdHash{lc $element}) {
        print "$element\n";
    }
}