my $date;
my $lastdate = '';
my $logdata = '';
while ( <LOGFILE> ) {
   ( $date, my $stuff ) = parse( $_ );
   $logdata .= $stuff;
   if ( $lastdate and ( $lastdate ne $date or eof LOGFILES ) ) {
     print_report( $lastdate, $logdata );
     $logdata = '';
   }
   $lastdate = $date;
}