my @ar  = qw /a b b a/;
my $cnt = 0 ;

$cnt    = grep /b/, @ar;