$ echo '
james     yes
dave      yes
mike      yes
ken       no
jon       yes
jon       no
ken       yes
jon       yes
mike      no
james      yes
dave      yes
mike      no
ken       no
jon       yes
jon       yes
' | perl -nE 'my ($name, $val) = split; $hash{$name} ++ if $val eq "yes"; END{ say "$_\t$hash{$_}" for keys %hash}'
james   2
mike    1
dave    2
jon     4
ken     1