my $time = localtime();
my ($wd,$mon,$mond,$times,$year) = split /\s+/, $time;
my $pattern_date = "$mon $mond";
my @array = ("error4", "error3", "error2", "error1");

my $count;
my @word_search;
my $line;
my $w;
my $wordcount;
open (OUTFILE, "/home/me/textfile.txt") || die ("can not open file for writing");

while ($line = <OUTFILE>) {
chop $line;
@word_search = split(/ /,$line);
$w = 1;
while ($w <= @word_search) {
if ($word_search[$w-1] eq $pattern_date && $word_search[$w-1] eq $array[$count]) {
$wordcount++;
}
$w++;
}
}
#print ("$array[$count] occurs $wordcount\n");
#print "$pattern_date found $wordcount\n";
#}
close (OUTFILE);


##</code><code>##

"if ($word_search[$w-1] eq $pattern_date && $word_search[$w-1] eq $array[$count]) { "