@log_entries = <LOGFILE>;

##</code><code>##

while(<LOGFILE>) {
    # stuff to process this single log entry
}

##</code><code>##

$maillist{$hostqid}=$mail;
$msgid=${maillist{$hostqid}}->msgid;
delete $maillist{$hostqid};
$maillist{$hostqid}=$nmail;