chap01.mod:           for $i (1 .. $disk-1) {
chap01.mod:           for $n (@_) { $total += $n }
chap01.mod:           for $n (@_) { $total += $n }
chap01.mod:           for $n (@_) { $total += $n }
chap01.mod:           for $n (@_) { $total += $n }
chap01.mod:           for (@subdirs) {      
chap01.mod:           for my $item (@{$html->{_content}}) {
chap01.mod:           for my $item (@{$html->{_content}}) {
chap01.mod:           for my $treasure (@$share_1) {
chap01.mod:           for my $treasure (@_) {
chap01.mod:           for my $treasure (@_) {
chap01.mod:         for (0 .. $#a) {
chap01.mod:         for (0 .. $#fact) {
chap01.mod:         for (0..$#fib) {
chap01.mod:         for (0..50) {
chap01.mod:         for (@lines1) {
chap01.mod:         for (@lines2) {
chap01.mod:         for my $line (split /^/, $OUTPUT) {
chap01.mod:         for my $line (split /^/, $OUTPUT) {
chap02.mod:           for $item (@{$html->{_content}}) {
chap02.mod:           for $item (@{$html->{_content}}) {
chap02.mod:           for my $good (keys %$table) {
chap02.mod:           for my $token (@tokens) {
chap02.mod:           for my $token (@tokens) {
chap02.mod:           for my $token (@tokens) {
chap02.mod:           for my $token (@tokens) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 		for (0..$#fib) {
chap03.mod: 	for my $test (@tests) {
chap03.mod: 	for my $test (@tests) {
chap03.mod:           for my $item (@$haystack) {
chap03.mod:           for my $name (sort {$time{$b} <=> $time{$a}} (keys %time)) {
chap03.mod:         for (0..$#fib) {
chap03.mod:         for (0..$#fib) {
chap03.mod:        for (20,21,22) {
chap03.mod:        for (7,8,9) {
chap03.mod:       for ($c, $m, $y) { $_ -= $k }
chap03.mod:       for ($c, $m, $y) { $_ -= $k }
chap04.mod:                    foreach $i (0 .. $#items) {
chap04.mod:             for ($i=1; $i<=@items && $p%$i==0; $i++) {
chap04.mod:             for ($i=1; $i<=@items && $p%$i==0; $i++) {
chap04.mod:             for (@arrays) {
chap04.mod:             for (@arrays) {
chap04.mod:             for my $token (@tokens) {
chap04.mod:           for (1..10) {
chap04.mod:           for (@$pattern) {
chap04.mod:           for (@arrays) {
chap04.mod:           for (@arrays) {
chap04.mod:           for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:           for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:           for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:           for my $abbrev (keys %n_expand) {
chap04.mod:           for my $i (0 .. $#$x) {
chap04.mod:           for my $i (1 .. $length) {
chap04.mod:         for $element (@a) {
chap04.mod:         for ($it->('start'); not $it->('exhausted?'); $it->('next')) {
chap04.mod:         for ($it->('start'); not $it->('exhausted?'); $it->('next')) {
chap04.mod:         for ($it->start; not $it->exhausted; $it->next) {
chap04.mod:         for ($it->start; not $it->exhausted; $it->next) {
chap04.mod:         for (1..2) {
chap04.mod:         for (@lines) {
chap04.mod:         for (@x) {
chap04.mod:         for (initialize; test; update) {
chap04.mod:         for (initialize; test; update) {
chap04.mod:         for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:         for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:         for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:         for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:         for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:         for (my $i = 1; $i < @tokens; $i += 2) {
chap04.mod:         for my $k (keys %saw1) {
chap04.mod:         for my $k (keys %saw1) {
chap04.mod:         for my $k (keys %saw1) {
chap04.mod:         for my $val (1 .. 10000000) {
chap05.mod:               for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:               for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:               for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:               for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:               for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:               for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:               for ($min .. $max) {
chap05.mod:               for ($min .. $max) {
chap05.mod:             for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:             for ( $j = 0; $j < $powern; $j++ ) {
chap05.mod:             for ($min .. $max) {
chap05.mod:             for ($min .. $max) {
chap05.mod:             for (links) {
chap05.mod:           for ($min .. $max) {
chap05.mod:           for ($min .. $max) {
chap05.mod:           for (1 .. $n-1) {
chap05.mod:           for (1 .. $n-1) {
chap05.mod:           for (1 .. $n-1) {
chap05.mod:           for (1..8){
chap05.mod:           for (@parts) { $ok &&= $_ >= 1 && $_ <= $N }
chap05.mod:           for my $i (0 .. $#$a) {
chap05.mod:         for (0 .. $#fact) {
chap05.mod:         for (0..$#fib) {
chap05.mod:         for (0..50) {
chap05.mod:         for (@words) { $seen{$_}++ }
chap05.mod:         for (@words) { $seen{lc $_}++ }
chap05.mod:         for my $k (keys %$a) {
chap05.mod:         for my $k (keys %$b) {
chap05.mod:         for my $res (partition($target, [1..$N])) {
chap05.mod:       for my $result (@results) {
chap05.mod:     for (@lines) {
chap05.mod:     for my $N (1..10) {
chap05.mod:     for my $N (1..6) {
chap05.mod:     for my $f (0..12) {
chap05.mod:     for my $result (@results) {
chap05.mod:   for my $i ($k..$n) {
chap06.mod:               for (@{$m->{deliveries}}) { delete $del->{$_} };
chap06.mod:               for (qw(success failure deferral)) { $m->{$_} += 0 }
chap06.mod:           for ($msg, $del) { $_ = {} unless $_ }
chap06.mod:           for (0 .. $N-1) {     
chap06.mod:           for (1 .. $#s) {
chap06.mod:           for (@chars) {
chap06.mod:           for (@previous_values) {
chap06.mod:         for (0..$LONG-1) {
chap06.mod:         for (0..19) {
chap06.mod:         for (1 .. 20) {
chap06.mod:         for (1..$Ntests) {
chap06.mod:         for (1..10) { 
chap06.mod:         for (1..12) {
chap06.mod:         for (1..12) {
chap06.mod:         for (2..11) {
chap06.mod:         for (2..11) {
chap06.mod:         for (7 .. 9) {
chap07.mod:                      for (@_) { $max = $_ gt $max ? $_ : $max }
chap07.mod:                      for (@_) { $min = $_ lt $min ? $_ : $min }
chap07.mod:                      for (@_) { $val = $code->($val, $_) }
chap07.mod:                   for (@_) { $max = $_ > $max ? $_ : $max }
chap07.mod:                   for (@_) { $min = $_ < $min ? $_ : $min }
chap07.mod:                   for (@_) { $sum = $sum + $_ }
chap07.mod:               for (0 .. $#fieldnames) {
chap07.mod:               for (@_) { 
chap07.mod:             for (@_) {
chap07.mod:             for (@_) {
chap07.mod:             for (@_) {
chap07.mod:           for (@_) { 
chap07.mod:           for (@_) { 
chap07.mod:           for (@a, @b) { $count{$_}++ }
chap07.mod:           for (@and) {
chap07.mod:           for (@or) {
chap07.mod:           for my $f (qw(and or without)) {
chap07.mod:     for (qw(3 4 5)) {
chap07.mod:     for (qw(4 8 16 32 64)) {
chap07.mod:     for my $want (qw(15 26 37 48)) {
chap07.mod:     for my $want (qw(15 26 37 48)) {
chap07.mod:     for my $want (qw(2 4 6)) {
chap07.mod:     for my $want (qw(3 6 9)) {
chap07.mod:    for (qw(1 4 2 5 3 6)) {
chap08.mod:                     for my $f (@$funcs) {
chap08.mod:                    for my $f (@$rest) {
chap08.mod:                    for my $f (@$rest) {
chap08.mod:                  for my $f (@$funcs) {
chap08.mod:                  for my $f (@$funcs) {
chap08.mod:                  for my $f (@$funcs) {
chap08.mod:                  for my $f (@$funcs) {
chap08.mod:                  for my $f (@$funcs) {
chap08.mod:               for ($i=0; $i < @$sentential_form; $i++) {
chap08.mod:               for ($i=0; $i < @$sentential_form; $i++) {
chap08.mod:             for (@$data) {
chap08.mod:             for (@p) {
chap08.mod:             for (@p) {
chap08.mod:             for (@p) {
chap08.mod:             for (@p) {
chap08.mod:             for (@p) {
chap08.mod:             for (@p) {
chap08.mod:             for my $i (0 .. $#$sentential_form) {
chap08.mod:             for my $i (0 .. $#$wanted) {
chap08.mod:             for my $i (0 .. $#$wanted) {
chap08.mod:             for my $i (0 .. $#$wanted) {
chap08.mod:             for my $i (0 .. $#$wanted) {
chap08.mod:             for my $production (@{$grammar->{$sentential_form->[$leftmost_nonterminal]}}) {
chap08.mod:           for my $i (@input) {
chap08.mod:           for my $i (@input) {
chap08.mod:           for my $line (split /\n/, $input) {
chap08.mod:         for (@lines) {
chap08.mod:         for my $c (@c) {
chap08.mod:         for my $file (qw(Programs/outline-parser Programs/outline-parser-2)) {
chap08.mod:         for my $i (2, 3) {
chap08.mod:         for my $t (@toks) { print "# token: @$t\n" }
chap08.mod:     for (@p) {
chap08.mod:     for (@p) {
chap09.mod:                                   for (@$decl_list) {
chap09.mod:             for my $j (0 .. $N-1) {
chap09.mod:             for my $k ($self->components) {
chap09.mod:             for my $k ($self->labels) {
chap09.mod:             for my $k (keys %{$s[0]}) {
chap09.mod:             for my $pspec (@{$decl->{PARAM_SPECS}}) {
chap09.mod:           for my $c ($t1->components) {
chap09.mod:           for my $c ($t1->components) {
chap09.mod:           for my $c ($t2->components) {
chap09.mod:           for my $c (keys %$hash) {
chap09.mod:           for my $d (@$drawables) {
chap09.mod:           for my $decl (@$declarators) {
chap09.mod:           for my $declaration (@declarations) {
chap09.mod:           for my $eq ($self->equations) {
chap09.mod:           for my $eqn ($self->equations) {
chap09.mod:           for my $i (0 .. $N-1) {
chap09.mod:           for my $k ($self->labels) {
chap09.mod:           for my $k ($self->labels) {
chap09.mod:           for my $k (keys %$self) {
chap09.mod:           for my $k (keys %self) {
chap09.mod:           for my $k (keys(%$a), keys %$b) {
chap09.mod:           for my $k (qw(start.x start.y end.x end.y)) {
chap09.mod:           for my $name ($self->drawables) {
chap09.mod:           for my $node ($self->attachments) {
chap09.mod:           for my $pspec (@{$declarator->{PARAM_SPECS}}) {
chap09.mod:           for my $value (@values) {
chap09.mod:           for my $var ($self->varlist) {
chap09.mod:           for my $wire (values %$wiring) {