$_ eq "b" and $b++ foreach @a ;

##</code><code>##

for (@a) {
    $b++ if $_ eq "b";
}