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