Problem Statement

Reduce is a function or method that is used to take the values in an array or a list and apply a function to successive members of the list to produce (or reduce them to), a single value.

Show how reduce (or foldl or foldr etc), work (or would be implemented) in your language.

Let's start with the solution:

use List::Util 'reduce';

# note the use of the odd $a and $b globals
print +(reduce {$a + $b} 1 .. 10), "\n";

# first argument is really an anon function; you could also do this:
sub func { $b & 1 ? "$a $b" : "$b $a" }
print +(reduce \&func, 1 .. 10), "\n"