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