foreach ...
    ...
    my $linecount = 0;
    my $datasize = 0;
    while (...
        $datasize += length;
        ...
        ++$linecount;
    }
    close ...
    print $linecount, $datasize;
}