Estructuras de control

Como los operadores, aquí sólo mencionaré las estructuras de control de Perl que más uso, muy parecidas a las de lenguajes como C. Podéis consultar guía de referencia de Perl para ver toda la variedad.

while(condicion)         # ejecuta un bloque de código mientras se cumpla cierta condición
{
	# bloque de código
	
	last if(condicion2);   # termina el bucle si se da condicion2
	
	if(condicion3)         # si se da condicion3
	{
		# bloque de código
	}
	elsif(condicion4)      # alternativa si se da condicion4, en caso contrario ejecuta else
	{
		# bloque de código alternativo
	}
	else
	{
		# otro bloque de código
	}
	
	next if(condicion5);   # salta a la siguiente iteración si se da condicion5 sin ejecutar bloque4

	# bloque de código 4
}

for($i=0;$i<20;$i++)    # ejecuta el bloque de código 20 veces
{
	# bloque de código
	die if(condicion6)   # termina el programa, no sólo el bucle, si se da condicion6
}

foreach $elemento (@arreglo)  # bucle sobre cada uno de los elementos de un @arreglo
{
	# procesa cada $elemento
}