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