There is a nasty trap waiting for you in:

my $e;
foreach $e (...)
[download]

The lexical $e you declare outside the loop is not the same entity as the $e you use as a loop variable. In particular, the lexical $e is not set to the value of the loop variable $e following the last iteration of the loop. It is much better to write:

foreach my $e (...)
[download]

to avoid misunderstandings. Note that the loop variable is an alias for each item that is iterated over. That means that if you alter the contents of the loop variable you are altering the contents of the item the loop variable is aliased to. Consider:

my @data = 1 .. 10;

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

print "@data\n";
[download]

prints: 5 10 15 20 25 30 35 40 45 50