Perlish! Just a style thing.

That for is sort of modifier. It made you go through all elements of @a, and apply the operation to each of them.

As if you are saying:

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