用于获取数组中最大元素数的Perl习惯用法

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

my $max_element = max_element(@array);

print "最大元素数为: $max_element\n";

sub max_element {
    my @elements = @_;
    my $max = $elements[0];

    foreach my $element (@elements) {
        if ($element > $max) {
            $max = $element;
        }
    }

    return $max;
}