for $i ( 1 .. $foo ) {
    last if bar($i);
  }
  print $i;