Checking for duplicate entries

[<CZa...@wi...>]

Hello, can anyone help on this.   I am trying to display duplicate enties
that are in
the ldap service.

%seen = ();
 $mesg = $ldap->search(
                                base => "o=base",
                                scope => "subtree",
                                filter => "(&(givenname=$var1) (sn=$var2))"
        );

foreach $entry ($mesg->entries) {
    printf "%s \n", $entry->dn  unless $seen{$entry}++
}