while (my $document = $documents->next) {
    my $related_objects = $document->HOW_DO_I_DO_THIS();
    ...
}