Perl | last in loop

last keyword is used to loop control statement which immediately causes the current iteration of the loop to become the last. If a label given, then it comes of the loop by the label.

Syntax:
# Comes out of the current loop.
last

# Comes out of the loop specified by
# MY_LABEL
last MY_LABEL

Example 1:

#!/usr/bin/perl
$sum = 0;
$a = 0;
$b = 0;

while(1)
{

$sum = $a + $b;
$a = $a + 2;

# Condition to end the loop
if($sum > 10)
{
    print "Sum = $sum\n";
    print "Exiting the loop\n";
    last;
}
else
{
    $b = $b - 1;
}
}
print "Loop ended at Sum > 10\n";

Output:

Sum = 11
Exiting the loop
Loop ended at Sum > 10

Example 2:

#!/usr/local/bin/perl

$a = 1;
$sum = 0;

# Outer Loop
Label1: while($a < 16)
{
   $b = 1;

   # Inner Loop
   Label2: while ($b < 8)
   {
      $sum = $sum + $b;
      if($a == 8)
      {
         print "Sum is $sum";

         # terminate outer loop
         last Label1;
      }
      $b = $b * 2;
   }
   $a = $a * 2;
}

Output:

Sum is 22