[- $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 $]