$count{$letter} = ()= $$seq =~ m/$letter/g;