Select Code to Download

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

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