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

##</code><code>##

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