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