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

##</code><code>##

foreach my $e (...)

##</code><code>##

my @data = 1 .. 10;

for my $item (@data) {
    $item *= 5;
}

print "@data\n";