use Data::Dumper;
$mail='foo@bar.com';
$dn = 'blah';
@members=('bob','carol','ted','alice');
$rec = { DN=>$dn, MAIL=>$mail, MEMBERS=>[@members] };
$hoh{$dn} = $rec;

print Dumper($rec);
print Dumper(\%hoh);