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