Select Code to Download

use List::Util qw[ reduce ];

...
Use of uninitialized value in concatenation (.) or string at ...

3

use List::Util qw[ reduce ];

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

6