loops and loop control statements in perl

Perl provides several types of loops to iterate through code blocks, each with its own syntax and use case. The loop control statements help to modify the flow of the loop execution. Here are the most commonly used loops and loop control statements in Perl:

1. for loop:

for (initialization; condition; increment) {
    # code to execute
}

This loop iterates over a block of code for a fixed number of times. The initialization initializes the loop variable, condition checks if the loop should continue executing, and increment updates the loop variable.

2. foreach loop:

foreach my $element (@array) {
    # code to execute
}

This loop iterates over each element of an array or a list and executes a block of code for each iteration. The variable $element takes the value of each element of the array or list in turn.

3. while loop:

while (condition) {
    # code to execute
}

This loop executes a block of code repeatedly as long as the condition is true. The condition is checked before each iteration of the loop.

4. do-while loop:

do {
    # code to execute
} while (condition);

This loop executes a block of code at least once and then repeatedly as long as the condition is true. The condition is checked after each iteration of the loop.

Loop control statements:

1. last:
   This statement immediately terminates the loop and moves the control to the statement following the loop.

2. next:
   This statement immediately moves to the next iteration of the loop, skipping any remaining code in the current iteration.

3. redo:
   This statement repeats the current iteration of the loop, without re-evaluating the loop condition.

Here's an example to demonstrate how these loops and loop control statements work:

my @numbers = (1, 2, 3