Select Code to Download

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

foreach my $e (...)

my @data = 1 .. 10;

...
}

print "@data\n";