Even though it's not a builtin function, List::Util's reduce function will do most of what you ask:

my @list = (1, 2, 3, 4);

my $sum = reduce { $a + $b } @list;  # 10
my $mul = reduce { $a * $b } @list;  # 24
my $min = reduce { $a - $b } @list;  # -8
my $mod = reduce { $a % $b } @list;  # 1

# etc
[download]

[ ar0n ]