use List::Util qw[ reduce ];

print reduce{ eval "$a + $b" } 1,2,3;
Use of uninitialized value in concatenation (.) or string at ...

3

##</code><code>##

use List::Util qw[ reduce ];

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

6