List::Util

 

use List::Util;
use List::Util qw(first max maxstr min minstr reduce shuffle sum);

sub test {
my @numbers = (1, 2, 3, 4, 5, 6, 7);

# Get first element
    my $first_number = first { defined($_) } @numbers;
print $first_number, "\n";

# Get max element
    my $max_number = max @numbers;
print $max_number, "\n";

# Shuffle, reorder
    my @shuffle_numbers = shuffle @numbers ;
print @shuffle_numbers, "\n";

# Sum
    my $sum = sum @numbers;
print $sum, "\n";

# Reduce
    
}

&test() ;

1 ;