my %count_of;
if (/([ACDEFGHIKLMNPQRSTVWY])/) {
    $count_of{$1}++
}