╤Φφ≥αΩ±Φ±.

• ─σΩδα≡α÷ΦΦ (εß· ΓδσφΦ )
• ╧≡ε±≥εσ ∩≡σΣδεµσφΦσ
• ╤δεµφ√σ ∩≡σΣδεµσφΦ 
• ╓ΦΩδ√
  • while
  • ╬∩σ≡α≥ε≡√ ≤∩≡αΓδσφΦ  ÷ΦΩδε∞
    • next
    • last
    • redo
  • for
  • foreach
• ┴δεΩΦ Φ ε∩σ≡α≥ε≡ switch
• ╬∩σ≡α≥ε≡ goto
• POD ε∩σ≡α≥ε≡√. ─εΩ≤∞σφ≥Φ≡εΓαφΦσ ∩≡επ≡α∞∞

Perl ∩≡επ≡α∞∞α (±Ω≡Φ∩≥) ±ε±≥εΦ≥ Φτ ∩ε±δσΣεΓα≥σδⁿφε±≥Φ ΣσΩδα≡α÷ΦΘ Φ ∩≡σΣδεµσφΦΘ. ┼ΣΦφ±≥Γσφφε ≈≥ε Σεδµφε ß√≥ⁿ εß τα≥σδⁿφε ΣσΩδα≡Φ≡εΓαφε, ²≥ε ⌠ε≡∞α≥√ ε≥≈σ≥εΓ Φ ∩εΣ∩≡επ≡α∞∞√ (⌠≤φΩ÷ΦΦ). ┬±σ φσεß· Γδσφφ√σ ∩σ≡σ∞σφφ√σ, ∞α±±ΦΓ√ Φ∞σ■≥ τφα≈σφΦσ 0 ΦδΦ null.

─σΩδα≡α÷ΦΦ (εß· ΓδσφΦ ).

Perl Φ∞σσ≥ ±ΓεßεΣφ√Θ ⌠ε≡∞α≥. ╩ε∞∞σφ≥α≡ΦΦ φα≈Φφα■≥±  ± ±Φ∞Γεδα '#' Φ ∩≡εΣεδµα■≥±  Σε Ωεφ÷α ±≥≡εΩΦ. ─σΩδα≡α÷ΦΦ ∞επ≤≥ Φ±∩εδⁿτεΓα≥ⁿ±  Γ δ■ßε∞ ∞σ±≥σ ∩≡επ≡α∞∞√ ≥αΩ µσ ΩαΩ Φ ∩≡σΣδεµσφΦ  (statements), φε ΣσΘ±≥Γ≤■≥ εφΦ ≥εδⁿΩε Γ ⌠ατσ Ωε∞∩Φδ ÷ΦΦ ∩≡επ≡α∞∞√. ╬ß√≈φε Φ⌡ ∩ε∞σ∙α■≥ ΦδΦ Γ φα≈αδσ ΦδΦ Γ Ωεφ÷σ ∩≡επ≡α∞∞√. ─σΩδα≡α÷Φ  ∩εΣ∩≡επ≡α∞∞ ∩ετΓεδ σ≥ Φ±∩εδⁿτεΓα≥ⁿ Φ∞  ∩εΣ∩≡επ≡α∞∞√ ΩαΩ ±∩Φ±ΩεΓ√Θ ε∩σ≡α≥ε≡, φα≈Φφα  ± ∞ε∞σφ≥α ΣσΩδα≡Φ≡εΓαφΦ .
╧≡Φ∞σ≡:

	sub test;	# ─σΩδα≡α÷Φ  ∩εΣ∩≡επ≡α∞∞√ test
	$var1 = test $0; # ╚±∩εδⁿτεΓαφΦσ ΩαΩ ε∩σ≡α≥ε≡α ±∩Φ±Ωα.

─σΩδα≡α÷ΦΦ ∩εΣ∩≡επ≡α∞∞ ∞επ≤≥ ß√≥ⁿ ταπ≡≤µσφ√ Φτ ε≥Σσδⁿφεπε ⌠αΘδα ∩≡σΣδεµσφΦσ∞ require ΦδΦ ταπ≡≤µσφ√ Φ Φ∞∩ε≡≥Φ≡εΓαφ√ Γ ≥σΩ≤∙≤■ εßδα±≥ⁿ Φ∞σφ ∩≡σΣδεµσφΦσ∞ use. ╧εΣ≡εßφε ±∞. πδαΓ≤ ╠εΣ≤δΦ.

╧≡ε±≥εσ ∩≡σΣδεµσφΦσ.

╧≡ε±≥εσ ∩≡σΣδεµσφΦσ εß τα≥σδⁿφε ταΩαφ≈ΦΓασ≥±  ±Φ∞Γεδε∞ ';' σ±δΦ ≥εδⁿΩε ²≥ε φσ ∩ε±δσΣφσσ ∩≡σΣδεµσφΦσ Γ ßδεΩσ πΣσ ';' ∞εµφε ε∩≤±≥Φ≥ⁿ. ╟α∞σ≥ⁿ≥σ, ≈≥ε ±≤∙σ±≥Γ≤■≥ ε∩σ≡α≥ε≡√ ≥αΩΦσ ΩαΩ eval{} Φ do{}, Ωε≥ε≡√σ Γ√πδ Σ ≥ ΩαΩ ±δεµφ√σ ∩≡σΣδεµσφΦ , φε φα ±α∞ε∞ Σσδσ ²≥ε ≥σ≡∞√ Φ ≥≡σß≤■≥ εß τα≥σδⁿφεπε ≤ΩαταφΦ  Ωεφ÷α ∩≡σΣδεµσφΦ .

╦■ßεσ ∩≡ε±≥εσ ∩≡σΣδεµσφΦσ ∞εµσ≥ ±εΣσ≡µα≥ⁿ single ∞εΣΦ⌠ΦΩα≥ε≡ ∩σ≡σΣ ';'. ╤≤∙σ±≥Γ≤■≥ ±δσΣ≤■∙Φσ single ∞εΣΦ⌠ΦΩα≥ε≡√:

	if EXPR
	unless EXPR
	while EXPR
	until EXPR

if EXPR- ╠εΣΦ⌠ΦΩα≥ε≡ "σ±δΦ". ╧≡σΣδεµσφΦσ Γ√∩εδφ σ≥± , σ±δΦ EXPR ΓετΓ≡α∙ασ≥ true.

╧≡Φ∞σ≡:

	$var = 1;
	$var2 = 3 if $var > 0; # ╨στ≤δⁿ≥α≥: $var2 = 3

while EXPR - ╠εΣΦ⌠ΦΩα≥ε≡ "∩εΩα". ╧≡σΣδεµσφΦσ Γ√∩εδφ σ≥±  ∩εΩα EXPR = true

╧≡Φ∞σ≡:

	$var = 1;
	print $var++ while $var < 5; # ╧σ≈α≥ⁿ $var ± ΦφΩ≡σ∞σφ≥ε∞

until EXPR- ╠εΣΦ⌠ΦΩα≥ε≡ "Σε ". ╧≡σΣδεµσφΦσ Γ√∩εδφ σ≥±  Σε ≥σ⌡ ∩ε≡ ∩εΩα EXPR = false

╧≡Φ∞σ≡:

	$var = 1;
	print $var++ until $var > 5; # ╧σ≈α≥ⁿ $var ± ΦφΩ≡σ∞σφ≥ε∞

unless EXPR - ╠εΣΦ⌠ΦΩα≥ε≡ "σ±δΦ φσ" . ╬ß≡α≥φ√Θ Ω if. ┬√≡αµσφΦσ Γ√∩εδφ σ≥±  σ±δΦ EXPR = false.

╧≡Φ∞σ≡:

	$var = 1;
	print $var++ unless $var > 5; # ╧σ≈α≥ⁿ $var ± ΦφΩ≡σ∞σφ≥ε∞

╤δεµφ√σ ∩≡σΣδεµσφΦ .

╧ε±δσΣεΓα≥σδⁿφε±≥ⁿ ∩≡ε±≥√⌡ ∩≡σΣδεµσφΦΘ, επ≡αφΦ≈σφφα  ⌠≤φΩ÷Φεφαδⁿφ√∞Φ επ≡αφΦ≈Φ≥σδ ∞Φ, φατ√Γασ≥±  ßδεΩε∞. ┬ Perl ²≥ε ∞εµσ≥ ß√≥ⁿ ÷σδ√Θ ⌠αΘδ, ∩ε±δσΣεΓα≥σδⁿφε±≥ⁿ ∩≡σΣδεµσφΦΘ Γ ε∩σ≡α≥ε≡σ eval{} ΦδΦ ≈α∙σ Γ±σπε ²≥ε ∞φεµσ±≥Γε ∩≡ε±≥√⌡ ∩≡σΣδεµσφΦΘ, επ≡αφΦ≈σφφ√⌡ Ω≡≤πδ√∞Φ ±ΩεßΩα∞Φ '{}'.

╤≤∙σ±≥Γ≤■≥ ±δσΣ≤■∙Φσ ΓΦΣ√ ±δεµφ√⌡ ∩≡σΣδεµσφΦΘ:

if (EXPR) BLOCK
if (EXPR) BLOCK else BLOCK
if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK

LABEL while (EXPR) BLOCK
LABEL while (EXPR) BLOCK continue BLOCK
LABEL for (EXPR; EXPR; EXPR) BLOCK
LABEL foreach VAR (LIST) BLOCK
LABEL BLOCK continue BLOCK

╬ß≡α≥Φ≥σ ΓφΦ∞αφΦσ, ≈≥ε ±δεµφ√σ ∩≡σΣδεµσφΦ  ε∩Φ±αφ√ Γ ≥σ≡∞α⌡ ßδεΩεΓ, α φσ ∩≡σΣδεµσφΦΘ, ΩαΩ Γ  τ√Ωα⌡ C ΦδΦ Pascal. ╧ε²≥ε∞≤ φσεß⌡εΣΦ∞ε Γ±σπΣα Φ±∩εδⁿτεΓα≥ⁿ Ω≡≤πδ√σ ±ΩεßΩΦ Σδ  εßετφα≈σφΦ  ßδεΩα.

if (EXPR) BLOCK - ┬√≈Φ±δ σ≥±  δεπΦ≈σ±Ωεσ Γ√≡αµσφΦσ EXPR Φ σ±δΦ true ßδεΩ Γ√∩εδφ σ≥± .
╧≡Φ∞σ≡:

	$var =1;
	if ($var == 1)
	   { print $var,"\n";
	   }

if (EXPR) BLOCK else BLOCK2 - ┼±δΦ EXPR=true Γ√∩εδφ σ≥±  BLOCK Φφα≈σ BLOCK2.
╧≡Φ∞σ≡:

	$var =2;
	if ($var == 1)
	   { print "\$var = 1\n";
	   }
	else
	   { print "\$var φσ ≡αΓφε 1\n";
	   }

if (EXPR1) BLOCK1 elsif (EXPR2) BLOCK2 ... else BLOCK - ┼±δΦ EXPR1=true Γ√∩εδφ σ≥±  BLOCK1 Φφα≈σ σ±δΦ EXPR2=true Γ√∩εδφ σ≥±  BLOCK2 Φφα≈σ ... Φφα≈σ BLOCK.
╧≡Φ∞σ≡:

	$var = 1;
	if ($var == 0)
	   { print "\$var = 0\n";
	   }
	elsif ($var == 1)
	   { print "\$var = 1\n";
	   }
	else
	   { print "═σ ΦτΓσ±≥φεσ \$var\n";
	   }

╓ΦΩδ While

╓ΦΩδ while Γ√∩εδφ σ≥ BLOCK Σε ≥σ⌡ ∩ε≡ ∩εΩα EXPR = true. ╠σ≥Ωα LABEL φσ εß τα≥σδⁿφα Φ ±ε±≥εΦ≥ Φτ ΦΣσφ≥Φ⌠ΦΩα≥ε≡α, ταΓσ≡°α■∙σπε±  ±Φ∞Γεδε∞ ':'. ╠σ≥Ωα φσεß⌡εΣΦ∞α ∩≡Φ Φ±∩εδⁿτεΓαφΦΦ Γφ≤≥≡Φ ßδεΩα ÷ΦΩδα ≤∩≡αΓδ ■∙Φ⌡ ε∩σ≡α≥ε≡εΓ next, last Φ redo. ┼±δΦ ∞σ≥Ωα Γ±σ µσ ε≥±≤≥±≥Γ≤σ≥, ≥ε ²≥Φ ε∩σ≡α≥ε≡√ ±±√δα■≥±  Ω φα≈αδ≤ ßδΦµαΘ°σπε ÷ΦΩδα. ┴δεΩ ∩ε±δσ continue Γ√∩εδφ σ≥±  Γ±σπΣα ∩σ≡σΣ ≥σ∞ ΩαΩ Γ√≈Φ±δ σ≥±  δεπΦ≈σ±Ωεσ Γ√≡αµσφΦσ EXPR. ▌≥ε ∩εΣεßφε EXPR3 Γ ∩≡σΣδεµσφΦΦ for, ∩ε²≥ε∞≤ Γ ²≥ε∞ ßδεΩσ ≤Σεßφε Φτ∞σφ ≥ⁿ ±≈σ≥≈ΦΩΦ Φ ⌠δαπΦ ÷ΦΩδα Σαµσ σ±δΦ ∩≡Φ∞σφ σ≥±  ε∩σ≡α≥ε≡ next.

╬∩σ≡α≥ε≡√ ≤∩≡αΓδσφΦ  ÷ΦΩδε∞.

next - ∩εΣεßσφ continue Γ ╤. ╧σ≡σ⌡εΣΦ≥ Ω φα≈αδ≤ ≥σΩ≤∙σπε ÷ΦΩδα ≥.σ. ∩εΓ≥ε≡ σ≥ Φ≥σ≡α÷Φ■.

╧≡Φ∞σ≡:

	M1:
	while ($i < 6)
	    {
	    ++$i;	# ╙ΓσδΦ≈ΦΓασ∞ ±≈σ≥≈ΦΩ φα 1
	    next M1 if $i < 3; # ╧σ≡σ⌡εΣΦ∞ Γ φα≈αδε σ±δΦ $i < 3
	    ++$i;	# Φφα≈σ ≤ΓσδΦ≈ΦΓασ∞ ±≈σ≥≈ΦΩ σ∙σ ≡ατ φα 1
	    }
	continue
	    {
	    print "$i "; # ╧σ≈α≥ασ∞ $i
	    }

last - ∩εΣεßσφ ε∩σ≡α≥ε≡≤ break Γ  τ√Ωσ ╤. ═σ∞σΣδσφφε ∩≡σ≡√Γασ≥ ÷ΦΩδ. ┴δεΩ continue ∩≡ε∩≤±Ωασ≥± .

╧≡Φ∞σ≡:

        M1:
        while ($i < 6)
            {
            ++$i;       # ╙ΓσδΦ≈ΦΓασ∞ ±≈σ≥≈ΦΩ φα 1
            last M1 if $i > 3; # ┬√⌡εΣ Φτ ÷ΦΩδα σ±δΦ $i > 3
            ++$i;       # Φφα≈σ ≤ΓσδΦ≈ΦΓασ∞ ±≈σ≥≈ΦΩ σ∙σ ≡ατ φα 1
            }
continue {
            print "$i "; # ╧σ≈α≥ασ∞ $i
}

redo - φα≈α≥ⁿ φεΓ√Θ ÷ΦΩδ φσ Γ√≈Φ±δ   EXPR Φ φσ Γ√∩εδφ   continue ßδεΩ.

╧≡Φ∞σ≡:

        M1:
        while ($i < 6)
            {
            ++$i;       # ╙ΓσδΦ≈ΦΓασ∞ ±≈σ≥≈ΦΩ φα 1
            redo M1 if $i == 3; # ─αδσσ ∩≡ε∩≤±≥Φ≥ⁿ Σδ  $i = 3
            ++$i;       # Φφα≈σ ≤ΓσδΦ≈ΦΓασ∞ ±≈σ≥≈ΦΩ σ∙σ ≡ατ φα 1
            }
continue {
            print "$i "; # ╧σ≈α≥ασ∞ $i
}

╓ΦΩδ for.

LABEL for (EXPR1; EXPR2; EXPR3) BLOCK
╬∩σ≡α≥ε≡ for ∩εδφε±≥ⁿ■ αφαδεπΦ≈σφ ε∩σ≡α≥ε≡≤ for Γ ╤. ┬ ∩σ≡σΣ φα≈αδε∞ ÷ΦΩδα Γ√∩εδφ σ≥±  EXPR1, σ±δΦ EXPR2 = true Γ√∩εδφ σ≥±  ßδεΩ, τα≥σ∞ Γ√∩εδφ σ≥±  EXPR3.

╧≡Φ∞σ≡:

	for ($i = 2; $i < 5; ++$i)
           {
           print $i, " ";
           }
        print "\n╧ε±δσ ÷ΦΩδα i = $i\n";

2 3 4
╧ε±δσ ÷ΦΩδα i = 5

╓ΦΩδ foreach.

LABEL foreach VAR (LIST) BLOCK
╧σ≡σ∞σφφεΘ VAR ∩≡Φ±ΓαΦΓασ≥±  ∩εε≈σ≡σΣφε ΩαµΣ√Θ ²δσ∞σφ≥ ±∩Φ±Ωα LIST Φ Γ√∩εδφ σ≥±  ßδεΩ. ┼±δΦ VAR ε∩≤∙σφε, ≥ε ²δσ∞σφ≥√ ∩≡Φ±ΓαΦΓα■≥±  Γ±≥≡εσφφεΘ ∩σ≡σ∞σφφεΘ $_. ┼±δΦ Γ ≥σδσ ßδεΩα Φτ∞σφ ≥ⁿ τφα≈σφΦσ VAR ≥ε ²≥ε Γ√τεΓσ≥ Φτ∞σφσφΦσ Φ ²δσ∞σφ≥εΓ ±∩Φ±Ωα ≥.Ω. VAR ⌠αΩ≥Φ≈σ±ΩΦ ≤Ωατ√Γασ≥ φα ≥σΩ≤∙ΦΘ ²δσ∞σφ≥ ±∩Φ±Ωα. ┬∞σ±≥ε ±δεΓα foreach ∞εµφε ∩Φ±α≥ⁿ ∩≡ε±≥ε for - ²≥ε ±δεΓα ±ΦφεφΦ∞√.

╧≡Φ∞σ≡:

        @∞σ± ÷ = (" φΓα≡ⁿ","⌠σΓ≡αδⁿ","∞α≡≥");  # ╤ετΣαδΦ ∞α±±ΦΓ
        foreach $i (@∞σ± ÷)
            {
            print $i," ";       # ╧σ≈α≥ⁿ $i
            }

╧≡Φ∞σ≡:

        @∞σ± ÷ = (" φΓα≡ⁿ","⌠σΓ≡αδⁿ","∞α≡≥");  # ╤ετΣαδΦ ∞α±±ΦΓ
        foreach $i (@∞σ± ÷)
            {
            $i = uc($i); # ╧σ≡σΓσδΦ Γ Γσ≡⌡φΦΘ ≡σπΦ±≥≡
            }
        print @∞σ± ÷;

╧≡Φ∞σ≡:

	for $i (3,5,7)
	    {
	    print "$i ";
	    }

┴δεΩΦ Φ ε∩σ≡α≥ε≡ switch.

┴δεΩ φσ ταΓΦ±Φ∞ε ε≥ ≥επε Φ∞σσ≥ εφ ∞σ≥Ω≤ ΦδΦ φσ≥ ±σ∞αφ≥Φ≈σ±ΩΦ ∩≡σΣ±≥αΓδ σ≥ ±εßεΘ ÷ΦΩδ Ωε≥ε≡√Θ Γ√∩εδφ σ≥±  εΣΦφ ≡ατ. ╧ε²≥ε∞≤ ΣσΘ±≥ΓΦσ ε∩σ≡α≥ε≡εΓ ÷ΦΩδα next, last, redo - αφαδεπΦ≈φε ε∩Φ±αφφε∞≤ Γ√°σ. ┴δεΩΦ ≤Σεßφ√ Σδ  ∩ε±≥≡εσφΦ  switch (∩σ≡σΩδ■≈α≥σδⁿ) ±≥≡≤Ω≥≤≡. ┬ Perl φσ≥ ±∩σ÷Φαδⁿφεπε ε∩σ≡α≥ε≡α switch ∩εΣεßφεπε  τ√Ω≤ ╤ ∩ε²≥ε∞≤ Γ√ ±α∞Φ ∞εµσ≥σ ±ετΣαΓα≥ⁿ ≤Σεßφ√σ Σδ  Γα± Ωεφ±≥≡≤Ω÷ΦΦ. ╬∩√≥ αΓ≥ε≡α ∩εΩατ√Γασ≥ ≈≥ε Σδ  ∩≡ε±≥ε≥√ φα∩Φ±αφΦ  δ≤≈°σ Γ±σπε ∩εΣ⌡εΣΦ≥ Ωεφ±≥≡≤Ω÷Φ  ΓΦΣα if ... elsif ... else ... ⌡ε≥  ∞εµφε ±ε≈ΦφΦ≥ⁿ Φ φσ≈≥ε ∩εΣεßφεσ:

	SWITCH:
	{
	if ($i ==1 ) { .....; last SWITCH; }
	if ($i ==2 ) { .....; last SWITCH; }
	if ($i ==3 ) { .....; last SWITCH; }
	$default = 13;
	}

╬∩σ≡α≥ε≡ goto.

┬ Perl ±≤∙σ±≥Γ≤σ≥ ε∩σ≡α≥ε≡ goto ⌡ε≥  πΣσ , ΩαΩ Φ ΩεπΣα σπε ∩≡Φ∞σφ ≥ⁿ ΩαΩ πεΓε≡Φδ ╒εΣµα ═α±≡σΣΣΦφ "╥εφΩΦΘ ⌠Φδε±ε⌠±ΩΦΘ Γε∩≡ε±". ─δ  φα≈Φφα■∙Φ⌡ ∩≡επ≡α∞∞Φ±≥εΓ Ωε≥ε≡√∞ ε≥ ≥αΩ "φ≤µσφ"   ß√ Γεεß∙σ ∩ε±εΓσ≥εΓαδ "ταß√≥ⁿ" ε σπε ±≤∙σ±≥ΓεΓαφΦΦ. ╬ΣφαΩε ∩≡Φ ±ετΣαφΦΦ ßεδⁿ°Φ⌡ ∩≡εΦτΓεΣ±≥Γσφφ√⌡ ταΣα≈ φα ∩ε±δσΣφσ∞ ²≥α∩σ ε±εßσφφε ∩≡Φ ε≥≡αßε≥Ωσ "ε≥Γαδⁿφ√⌡" ε°Φßε≈φ√⌡ ±Φ≥≤α÷ΦΘ Ωεφσ≈φε goto φ≤µσφ.

┬ Perl ≡σαδΦτεΓαφε ≥≡Φ ⌠ε≡∞√ goto. goto - ∞σ≥Ωα, goto - Γ√≡αµσφΦσ Φ goto - ∩εΣ∩≡επ≡α∞∞α.

goto	∞σ≥Ωα Γ√∩εδφ σ≥ φσ∩ε±≡σΣ±≥Γσφφ√Θ ∩σ≡σ⌡εΣ φα ≤Ωαταφφ≤■ ∞σ≥Ω≤.
goto - Γ√≡αµσφΦσ	┬√≈Φ±δ σ≥ Φ∞  ∞σ≥ΩΦ Φ Σσδασ≥ ±εε≥Γσ≥±≥Γ≤■∙ΦΘ ∩σ≡σ⌡εΣ. ═α∩≡Φ∞σ≡ σ±δΦ ∞√ ⌡ε≥Φ∞ ±Σσδα≥ⁿ ∩σ≡σ⌡εΣ φα εΣφ≤ Φτ ≥≡σ⌡ ∞σ≥εΩ "M1:", "M2:" ΦδΦ "M3:" Γ ταΓΦ±Φ∞ε±≥Φ ε≥ τφα≈σφΦΘ ∩σ≡σ∞σφφεΘ $i ≡αΓφεΘ 0, 1 ΦδΦ 2 ≥ε ²≥ε δ≤≈°σ ±Σσδα≥ⁿ ±δσΣ≤■∙Φ∞ εß≡ατε∞: goto ("M1", "M2", "M3")[$i]; τΣσ±ⁿ $i Φ±∩εδⁿτ≤σ≥±  ΩαΩ ΦφΣσΩ± ∞α±±ΦΓα ≤Ωαταφφεπε φσ∩ε±≡σΣ±≥Γσφφε Γ Γ√≡αµσφΦΦ.
goto ∩εΣ∩≡επ≡α∞∞α	ΣεΓεδⁿφε ≡σΣΩΦΘ ±δ≤≈αΘ ≥.Ω. Γ±σπΣα ∩≡ε∙σ Φ φαΣσµφσΘ Γ√τΓα≥ⁿ ∩εΣ∩≡επ≡α∞∞≤ "σ±≥σ±≥Γσφφ√∞" εß≡ατε∞.

POD ε∩σ≡α≥ε≡√. ─εΩ≤∞σφ≥Φ≡εΓαφΦσ ∩≡επ≡α∞∞.

┬ Perl ≡σαδΦτεΓαφ ε≈σφⁿ ≤Σεßφ√Θ ∞σ⌡αφΦτ∞ Σδ  φα∩Φ±αφΦ  ΣεΩ≤∞σφ≥α÷ΦΦ Γ ∞ε∞σφ≥ ±ετΣαφΦ  ∩≡επ≡α∞∞√. ─δ  ²≥επε ∩≡Φ∞σφ ■≥±  ±∩σ÷Φαδⁿφ√σ POD ε∩σ≡α≥ε≡√. ┼±δΦ Γ ≥σδσ ∩≡επ≡α∞∞√ Φφ≥σ≡∩≡σ≥α≥ε≡ Γ±≥≡σ≈ασ≥ ε∩σ≡α≥ε≡ φα≈Φφα■∙ΦΘ±  ± ±Φ∞Γεδα '=' φα∩≡Φ∞σ≡:

	= head ═αßε≡ ±≥αφΣα≡≥φ√⌡ ∩≡ε÷σΣ≤≡