while (!$iter->end_of_data) {
    my $next = $iter->next;
    ...
}