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

##</code><code>##

for( $i = 1; $i <= $foo; $i++ ) {
  last if bar($i);
}
print $i;