foreach my $e (...)