my $try= 0;
my $max_tries = 100;
while ($try < $max_tries) {
    last if foo($try);
    ++$try;
}
continue {
    next if ($try % 10);
    print "Still running after $try tries\n";
}