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

##</code><code>##

use warnings;
use strict;
my $i = sub {
  for my $i (1..5)  {
    return($i) if ($i == 4);
  }
}->();
print $i;