my %line_count;
for my $csid (@csid_list) {
    $line_count{$csid} = 0;
}