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