my $ncc = 0;
    my $pc = 0;
    my $fc = 0;