use List::Util qw[ reduce ];

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

6