В Перл это может быть целый файл, последовательность предложений в операторе
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";
}
Результат: 1

if (EXPR) BLOCKelseBLOCK2– Если
EXPR=
trueвыполняется BLOCK иначе BLOCK2.
Пример:
$var =2;
if ($var == 1)
{ print «\$var = 1\n»;
}
else
{ print «\$var не равно 1\n»;
}
Результат: $var не равно 1
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»;
}
Результат: $var = 1
Цикл
whileвыполняет
BLOCKдо тех пор пока
EXPR=
true. Метка
LABELне обязательна и состоит из идентификатора завершающегося символом ':'. Метка необходима при использовании внутри блока цикла управляющих операторов
next,
lastи
redo. Если метка все же отсутсвует то эти операторы ссылаются к началу ближайшего цикла.
Блок после
continueвыполняется всегда перед тем как вычисляется логическое выражение
EXPR. Это подобно
EXPR3в предлжении
forпоэтому в этом блоке удобно изменять счетчики и флаги цикла даже если применяестя оператор
next.

Операторы управления циклом.
next – подобен continue в С.