如何在Perl中按元素求和数组？

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1, 2, 3, 4, 5);
my $sum = 0;

foreach my $element (@array) {
    $sum += $element;
}

print "The sum of the array elements is: $sum\n";