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