tie %maillist, 'MLDBM', "/home/u752359/maillist.db", O_CREAT|O_RDWR, 0640 or die $!;
$maillist{$hostqid}=$mail;
$msgid=${maillist{$hostqid}}->msgid;
delete $maillist{$hostqid};
$maillist{$hostqid}=$nmail;
foreach $hostqid (keys %maillist){