I'm afraid this whole script is a bit confused. You really should read up on hashes. There are much better explanations available than I could give here.

Anyway, with that said, you get an error because you've not delcared $k in your foreach loop ala...

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

Your also emptying your hash with the line...

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

assigning a key with a value would normally be done like this

$LogHash{%HashKey} = "THEVALUE";
[download]

... but this isn't going to help you much because I'm still not sure what the output of the program should be.

You also seem to think that you can have multiple values for a single key. That's not true, hashes are one key -> one value (that's not to say the value couldn't be an array reference, but that's a whole other topic).

you might also want to take a look at data::dumper, which is great for debugging hashes (by printing them)

use Data::Dumper;
print Dumper(\%hash);
[download]

good luck

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.