my $iold;
for my $i ( 1 .. $foo ) {
  if( bar($i) ) {
    $iold = $i;
    last;
  }
}