use strict;
use warnings;

my %hoh ;
my ($dn,$mail) = qw( dn mail );
my @members = qw(foo bar baz);
my @email_addrs = qw( foo@here bar@there );

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

$hoh{$dn} = $rec;

use Data::Dumper;
print Dumper \%hoh;

##</code><code>##