#! /usr/bin/perl -w
use strict;
my @arr=('perl','monks','website');
our @files=('file1.txt','file2.txt','file3.txt');
open(LOG,">","output.txt");
my $file;
foreach $file(@files)
{
 open(FILE,"<",$file);
 my @lines=<FILE>;
 close(FILE);
 my $count=0;
 my $line;
 foreach $line(@lines)
 {
  $count++;
  if($line =~ /.*$arr[0]/)
  {
   print LOG "$arr[0] found in $file at line number $count\n";
  }
  if($line =~ /.*$arr[1]/)
  {
   print LOG "$arr[1] found in $file at line number $count\n";
  }
  if($line =~ /.*$arr[2]/)
  {
   print LOG "$arr[2] found in $file at line number $count\n";
  }
 }
}
close(LOG);