my $date = "04/11/2004";

my $log_file = "log.txt";
open(LOGDATA, "$log_file") or die("Could not open log file at: $log_file.");

my %erg = ();
my %app_log = ();
my %date = ();

while(<LOGDATA>) {

    my @row = split(/,/,$_);    
          ++$date{$row[4]};
          ++$erg{$row[3]};
          ++$app_log{$row[0]}; 
          
    foreach(keys %date){
    	if($_=~/$m\/$d\/$y/){
		@n_row=$_;
    	#print " - $date{$_} - From Date=$m/$d/$y.<br>";		
             }
    }
    
}

print $_ . ': ' . $date{$_} . '<br />' . "\n" foreach (keys %date);

print $_ . ': ' . $app_log{$_} . '<br />' . "\n" foreach (keys %app_log);

print $_ . ': ' . $erg{$_} . '<br />' . "\n" foreach (keys %erg);