A few things with that... while (<$FILE>) {
would assume you had a variable that is a glob of a filehandle. I'm not sure why you'd want to do that, just a caveat.

elif should be elsif

and your code also assumes both a single line read (in the /^\d/ case) and a multi-line read (in the /^\s+ID/ case), unless I'm reading that incorrectly.

Here's what I came up with: 
use Data::Dumper;
use strict;

my $hash = {};

my @files = ( "LOG1", "LOG2", "LOG3" );

foreach my $file ( @files ) {
  open FILE, "<", $file or die "Unable to open $file\n$!\n";
   
  my ( $date, $id, $timestamp ) = qw( Unknown "" "" );
  while (<FILE>) {
     chomp;
     if (/^\d/){ 
        $date = $_;
     } elsif (/^\s+ID\s*=\s*(.*)$/) {
        $id = $1;   
     } elsif ( /^\s+TIMESTAMP\s*=\s*(.*)$/ ) {
        $timestamp = $1;
     } elsif ( /^\s+COUNT_\d+\s*=\s*(.*)$/ ) {
        $hash->{$date}->{$id}->{$timestamp} += $1;
     }
  }
}

print Dumper($hash), "\n";

[download]
which would give you 
$VAR1 = {
          '20090619' => {
                          '4' => {
                                   '1244127600' => '20'
                                 },
                          '1' => {
                                   '1244127600' => '20'
                                 },
                          '3' => {
                                   '1244127600' => '10'
                                 },
                          '0' => {
                                   '1244127600' => '20'
                                 },
                          '2' => {
                                   '1244127600' => '10'
                                 }
                        }
        };

[download]
Assumptions are that the log files are all in the order specified, the actual COUNT_X values are immaterial, etc.

In reply to Re^2: Process Log Files - Join Log entry pairs by Transient
in thread Process Log Files - Join Log entry pairs by gulden

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.