本節介紹 Perl 的控制結構，大概可分為下列數大類：
在條件敘述中，最常見的就是 if 敘述，其一般格式如下：
<![CDATA[
If (condition1) {
…
} elsif (condition2) {
…
} else {
...
}
]]>
其中「elsif」部分可以重複很多次。例如（tif.pl ）：
原始檔（tif.pl ）： （灰色區域按兩下即可拷貝） @alldays = ("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun");
$num = rand(scalar @alldays);
$thisday = @alldays[$num];
if ($thisday eq "Sat") {
$type = "holiday";
} elsif ($thisday eq "Sun") {
$type = "holiday";
} else {
$type = "workday";
}
print("$thisday is a $type.");
在上面的範例中，「scalar @alldays」會傳回 7，代表 @alldays 的元素個數，「rand(scalar @alldays)」則會傳回一個介於 [0, 7) 區間的亂數，因此 $thisday 的值就可能是 $alldays 中的任一個元素。若 $thisday 是 "Sat" 或 "Sun"，則 $type 是 "holiday"，否則，$type$ 是 "workday"。
對於簡單的 if 敘述，我們也可以把 if 的條件部分放到後面，例如，下列兩列程式碼是完全等效的：
<![CDATA[
if ($x > 0) {print("$x is positive");}
]]>
<![CDATA[
print("$x is positive") if ($x > 0);
]]>
上述的第二列程式碼是比較符合美式口語的說法，但在一般電腦程式語言卻很少見到。
另一個條件敘述是 unless，是在判斷條件不為真的情況下，才執行其後的敘述。例如：
<![CDATA[
unless ($x <= 0) {
print("$x is positive");
}
]]>
和 if 敘述相同，我們也可以把 unless 的條件判斷部分搬到後面。
綜合上面的說明，我們可發覺，下面六列程式碼的功能是完全一樣的：
<![CDATA[
1. if ($x > 0) {print "positive\n";};
2. print "positive\n" if ($x > 0);
3. unless ($x <= 0) {print "positive\n";};
4. print "positive\n" unless ($x <= 0);
5. $x > 0 && print "positive\n";
6. $x <= 0 || print "positive\n";
]]>
在上例第五列中，「&&」代表邏輯的「AND」運算，因此只要第一個運算子是 0（即不滿足 $x > 0），則不再執行第二個運算子（即不印出 "positive"）。同理，在第六列中，「||」代表邏輯的「OR」運算，因此只要第一個運算子是 0（即滿足 $x <= 0），則不再執行列印動作。
在條件敘述中，Perl 如何判斷一個運算式是 True （真）或 False （偽）呢？其根據的原則如下：
將運算結果視為一個字串。
如果運算結果是 "0" 或 ""（空字串）或 undef （未定義），則代表結果為 False，否則即為 True。
以下這些範例讓讀者自行參考及推想：
條件敘述 判定結果
0 False
1-1 False
1 True
"" False
"1" True
"00" True
"0.000" True
undef False
接下來我們要說明的是迴圈敘述（Loop Statement）。首先說明的是 while/until 迴圈敘述，其基本格式如下：
<![CDATA[
while (條件式) {
迴圈內部敘述
}
]]>
<![CDATA[
until (條件式) {
迴圈內部敘述
}
]]>
<![CDATA[
do {
迴圈內部敘述
} while (條件式);
]]>
<![CDATA[
do {
迴圈內部敘述
} until (條件式);
]]>
前兩種格式是先判斷條件式，再決定是否執行迴圈內部敘述；後兩種格式是先執行迴圈內部敘述後，再判斷條件式，決定是否繼續執行迴圈。
另一個常用到的迴圈敘述是 for 迴圈，其格式和 C 語言的 for 迴圈很類似。在下例中，我們利用 for 迴圈將陣列的元素逐一印出：
<![CDATA[
@days = {"Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun");
for ($i=0; $i<7; $i++) {
print("$days[$i]";
}
]]>
Perl 也提供了另一種專門適用於陣列變數的 foreach 迴圈，我們可用 foreach 迴圈將上述程式碼改寫如下：
<![CDATA[
@days = {"Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun");
foreach $element (@days) {
print("$element");
}
]]>
其中 $element 的值會依序被設定為陣列 @days 的每一個元素，然後再執行期後的列印動作。事實上，上例可以再被簡化如下：
<![CDATA[
@days = {"Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun");
foreach (@days) {
print;
}
]]>
換句話說，$element已被省略，Perl 會自行取用一個虛擬變數 $_ 來取代 $element 的角色，此虛擬變數也是 foreach 和 print 的預設引數（Default Argument）。
若要從迴圈中即刻跳出，可用 last，其效果和 C 語言的 break 是相同的。例如，在處理陣列 $array 的元素時，若任一個元素值為負數時，則完全跳出迴圈，並由迴圈之後的敘述開始執行，其程式碼為：
<![CDATA[
for ($i = 0; $i < 10; $i++) {
last if $array[$i] < 0;
…
}
]]>
在另一種情況下，我們可能需要結束此次迴圈的執行，並立刻跳至下一個迴圈的開始位置來執行，此功能可由 next 來達成，其效果和 C 語言的 continue 是相同的。例如，在處理陣列 $array 的元素時，若任一個元素值為負數時，則立刻跳出此次迴圈，並由下次迴圈開始執行，其程式碼為：
<![CDATA[
foreach $element (@array) {
next if $element < 0;
...
}
]]>
由此我們可看出，Perl 的 last 相當於 C 的 break，而 Perl 的 next 相當於 C 的 continue。
Perl
