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