my @a=('a' .. 'z');
print scalar grep {$_ eq "q"} @a;

##</code><code>##

my @foo;
foreach (@a) {
  push @foo,$_ if ($_ eq "q");
}
print scalar @foo;