my %hoh ;

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

$hoh{$dn} = $rec;