my $persons = $schema->resultset('Person');
my $active_persons = $person->search({ active => 1 });

##</code><code>##

while (my $person = $person->next) {
    ...;
}

##</code><code>##

my @person_objs = $person->all;

##</code><code>##

$active_persons->search({
    writeup_comment.title => 'Foo',
}, {
    join => { writeup => 'writeup_comment' },
    prefetch => 'writeup',
});
# gets you all persons with have recieved a comment with the title 'Foo' for one of their writeups, for example

##</code><code>##

my $writeups = $active_persons->search_related('Writeup');