my ($current_date) = map { qr/$_/ } (scalar localtime) =~ /\w+ +(\w+ +\d+)/;

##</code><code>##

my @errors = map {qr/$_/} qw( error4 error3 error2 error1 );

##</code><code>##

open my $LOGFILE, '<', $log_file
  or die "can not open $log_file for writing: $!\n";

##</code><code>##

$w = 1;
while ($w <= @word_search) {
    # uses $w - 1 to get $word_search[$w - 1]
    $w++;
}

##</code><code>##

foreach my $w ( 0 .. $#word_search ) {
    # uses $w to get $word_search[$w]
}

##</code><code>##

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

##</code><code>##

if ( $line =~ /$current_date/ ) {
    foreach my $error (@errors) {
        # count all the errors on the line
        ++$error_count while ($line =~ /($error)/g);
    }
}