my @work = fetch_jobs($starting_condition);
my %seen;
while ( @work && @work < 1000 ) {
    # ...
}