my $e;
foreach $e (...)