Select Code to Download

for my $i ( 1..9 ) { print $i }
for my $i ( range(1,9) ) { print $i }
{ my $i; while ( range 1,9 => $i ) {...} }
{ my $iter = range(1,9); while ( $iter->(my $i) ) {...} }

sub range {
    my $start = shift;
...
        return 1;
    }
}