my $it = tqdm(100);
while (my $i = $it->next) {
    ...
}