my %hash = (
    GCU => 'A',
    GCC => 'A',
    #... usw
);

my %ergebnis;

for my $trip ( @triplets ) {
    my $key = $hash{$trip};
    $ergebnis{$key}++;
}