@keywords = ("keyword1", "keyword2", "keyword3"); while () { if ($_ = @keywords) print $_; } Contents of File1: somelines... somelines... somewords...keyword1..somewords somelines... somewords... keyword2...somewords...