perl function last

The last keyword in Perl is used to exit a loop prematurely. It is typically used in a loop (e.g. for, foreach, while, or until) to terminate the loop before it has reached its normal end condition.

Here's an example that demonstrates how to use last:

#!/usr/bin/perl

use strict;
use warnings;

# Define an array of integers
my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

# Loop through the array and print each element
foreach my $num (@array) {
    # If the number is greater than 5, exit the loop
    if ($num > 5) {
        last;
    }
    # Print the number
    print "$num\n";
}

In this example, we start by defining an array of integers. We then loop through the array using a foreach loop, and print each element to the console. However, we also include a check to see if the current element is greater than 5. If it is, we use the last keyword to exit the loop prematurely.

As a result, when we run this script, only the first five elements of the array are printed to the console, because the loop is terminated when it encounters the number 6.