# sum of maximal values... $maxsum = reduce { $^a + max(@^b) } 0, @foo, @bar, @etc;