__DATA
Kid And Place,006513,pw6513,DI,4/15/2004,10:17:09,15134346,1
Home,006513,pw6513,Login,4/15/2004,10:17:38,,
Home,006513,pw6513,DI,4/15/2004,10:17:44,151234326,1
Deal Time,006513,pw001,Login,4/15/2004,10:53:31,1,
Car Wash,006513,pw3h,DI,4/15/2004,10:53:46,11238748,1
Magic,006513,pw13,Login,4/15/2004,11:01:25,0,

##</code><code>##

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);