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

##</code><code>##

%LogHash = ($HashKey => $SentRec = substr($_, 0, 20));

##</code><code>##

$LogHash{%HashKey} = "THEVALUE";

##</code><code>##

use Data::Dumper;
print Dumper(\%hash);