my $i; 
for $i ( 1..10 ){ 
    1; 
}; 
print $i };;
Use of uninitialized value $i in print at (eval 9) line 1, <STDIN> line 1.

##</code><code>##

my $i;
for $i ( 1 .. $N ) {
    last if <SOMECOND>;
    ...
}
## Here we have no way of knowing if we took an early exit;
## thus necessitating additional, unnecessary complexity to retain or discover that.