my %manager;
while (<MGR>) {
    $manager{ $_ } = $ldap->search(...); # return only the manager DN
};

while (<PERSON>) {
    ... # you never seem to use the information from MGR here...
};