在Perl中是否有一些像zip和fold这样的函数？

use List::MoreUtils qw(zip);

my @list1 = (1, 2, 3);
my @list2 = ('a', 'b', 'c');

my @zipped = zip(@list1, @list2);

foreach my $pair (@zipped) {
    my ($num, $letter) = @$pair;
    print "$num - $letter\n";
}

use List::Util qw(reduce);

my @numbers = (1, 2, 3, 4, 5);

my $sum = reduce { $a + $b } @numbers;
print "Sum: $sum\n";

my $product = reduce { $a * $b } @numbers;
print "Product: $product\n";