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