Select Code to Download

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";
}