my $my_string="CCCAAAAACCCAAAAAAACCCCBBBCCAAACCBBACBBAAAAAAAAAAACAAAAAAAAAA";
my %count;
$count{$_}++ foreach split //, $my_string;
print Dumper \%count;
print my ($most_common) = sort {$count{$b} <=> $count{$a}} keys %count;