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