@letters = qw(A B C D E F);
$string = "AFTYUBEWTWECRTUTYIYTDDDDRYJURTHJTREEEEEFGSDFF";
for  $a (@letters)
{
	$count = $string =~ s/$a//g;
	print "$count\n";
}

output:
1
1
1
5
7
4