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