Help for this page
foreach my $k (keys(%LogHash)) { print LOGFILE $k, ",", $LogHash{$k}, "\n"; }
foreach my $k (keys(%LogHash)) { print LOGFILE "$k, $LogHash{$k}\n"; }