foreach my $entry ($result->all_entries()) {
        foreach my $attr ($entry->attributes()) {
            my @a = $entry->get_value($attr);
            $r->{$entry->dn()}->{$_} = @a > 1? \@a : $a[0] ;
        }
    }