while (<CYT>) {
    chomp;
    my ($name, $description, $ID ) = split /\t/;
    $occurrences{$ID} = 0;  # initial count
}