@letters = (A,B,C,D,E,F);

##</code><code>##

$string = "AFTYUBEWTWECRTUTYIYTDDDDRYJURTHJTREEEEEFGSDFF";

##</code><code>##

foreach $a(@letters)
{
$count = ($string = ~tr/$a//);
print $count;
}