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