[- $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') ; -]
[- @hh = map { $_ => $h{$_} } sort keys %h  -]  
[$ while ($v = shift @hh, $k = shift @hh) $]
    [+ "$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]" +]
	[- @hh = map { $_ => $h{$_} } sort keys %h  -]  
	[$ while ($v = shift @hh, $k = shift @hh) $]
		[+ "$v = $k" +]
		[$ foreach $fv (1, 3, 5, 7, 9) $]
			[+ $fv +] 
		[$ endforeach $]
		[$ foreach $fv (()) $]
			[+ $fv +] 
			[- @hhh = map { $_ => $h{$_} } sort keys %h  -]  
			[$ while ($wv = shift @hhh, $wk = shift @hhh) $]
				[+ "$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 $]
[- @bar = ('a', 'b', 'c'); -]
[$ foreach $foo (@bar) $]
  [* next if ($foo eq 'c'); *]
  [+ $foo +]
[$ endforeach $]
[$ foreach $foo (@bar) $]
  [* next if ($foo eq 'c'); *]
  x = [+ $foo +] = z
[$ endforeach $]
[$ foreach $foo (@bar) $]
  [$if ($foo eq 'c') $][$ last $][$endif$]
  last = [+ $foo +] = z
[$ endforeach $]
[$ foreach $foo (@bar) $]
  [$if ($foo eq 'b') $][$ next $][$endif$]
  next = [+ $foo +] = z
[$ endforeach $]