@e = (1,2,3,4);
my $foo;
$foo += $_ for @e;

##</code><code>##

@e = (1,2,3,4);
print eval join '+', @e;