tie %recipientqids, 'MLDBM', "/home/u752359/recipientqids.db", O_CREAT|O_RDWR, 0640 or die $!;
push(@{$recipientqids{$hostqid}},$recipient);
..
..
foreach $hostqid( @{$msgidqids{$msgid}}){
        foreach $recipient (@{$recipientqids{$hostqid}}){
                print STDERR "\nrecip= $recipient";
        }
}