foreach ( 1 .. $foo ) {
   $i = $_;
   last if bar($i);
}
print $i;