print reduce { $a + $b } 1,2,3;

##</code><code>##

print reduce{ print "a = $a, b = $b\n"; eval "$a + $b" } 1,2,3,4;