my %mailhash;
while (<LOG>) {
   my( $date, $time, $message, @rest ) = split /\s+\;
   if ( $message ~= /^\w{6}\-\w{6}\-\w{2}$/ ) {
       $mailhash{ $message } ||= [];
       push @{ $mailhash{ $message } }, join(" ", @rest);
   }
}