[- $i = 0 -] [* while ($i <= $#ffld) { *] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [* while ($j <= $i) { *] [+ $j++ +] [* } *]
[- $i++ -] [* } *] [- $i = 0 -] [* while($i <= 2) {*] [+ $i++ +] [* } *] [- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -] [- @a = ('a', 'b', 'c', 'd') ; -] [* while (($v, $k) = each (%h)) { *] [+ "$v = $k" +]
[* } *] [- $i = 0 -] [* while ($i <= $#a) { *] [+ "\@a[$i] = $a[$i]" +]
[- $i++ -] [* } *] [- $i = 0 -] [* do { *] [+ "\@a[$i] = $a[$i]" +]
[- $i++ -] [* } until ($i > $#a) ; *] [* foreach $v (@a) { *] [+ $v +]
[* } *] [* foreach $v (1, 3, 5, 7, 9) { *] [+ $v +]
[* } *] [* foreach $v (1..10) { *] [+ $v +]
[* } *] [- $i = 0 -] [* do { *] [+ "\@a[$i] = $a[$i]" +]
[* while (($v, $k) = each (%h)) { *] [+ "$v = $k" +]
[* foreach $fv (1, 3, 5, 7, 9) { *] [+ $fv +]
[* } *] [* foreach $fv (1) { *] [+ $fv +]
[* while (($wv, $wk) = each (%hhh)) { *] [+ "$wv = $wk" +]
[* } *] [* } *] [* } *] [- $i++ -] [* } until ($i > $#a) ; *]