Help for this page
my %users; while (<CSV>) { ... } } }
for my $user (keys %users) { print "dn: uid=$user\n", ... "telephonNumber: $users{$user}{phone_number}\n", "faxNumber: $users{$user}{fax_number}\n"; }