while (<CYT>) {
    chomp;
    $occurrences{ (split /\t/)[2] } = 0; # initial count
}