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