use 5.010;

my %parsed;
while ( <DATA> ){
   my @tmp = split;
   $parsed{$tmp[0]}{x1}++ if $tmp[1] eq '1_x';
   $parsed{$tmp[0]}{c3}++ if @tmp > 2;
}

for my $k ( sort keys %parsed ) {
  say join ' ', $k, $parsed{$k}->{x1}, $parsed{$k}->{c3};
}

__DATA__
A 1_x 9_z
A 1_x 
A 1_x g_z
B 2_c 
B 1_x 1_z
C 1_x 1_z
C v_x 8_z