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