Ahhhh... this is why you should reduce your code to the problem. I did not see that buried in the rest of your code.

you want a foreach

foreach my $in (@data) {
    my @mails = readlog($in);
[download]