my %hoh ;

while ( my $entry = $search_ad->pop_entry() ) {
        my $displayname = $entry->get_value('cn');
        my $dn          = $entry->get_value('distinguishedname');
        my $mail        = $entry->get_value('mail');
        my @members     = $entry->get_value('member');
        my @email_addrs = $entry->get_value('proxyaddresses');

        # fill @ad_enabled
        push @ad_mail_enbld_groups, lc $mail;

        my $rec = {
                MAIL => $mail,
                MEMBERS => [ @members ],
                PROXYADDRS => [ @email_addrs ],
       };

       $hoh{$dn} = $rec;

    }