my %acids;

for(my $i = 0; $i < length($string)-1; $i++){
    my $amino = substr($string, $i, 2);
    
    if(exists $acids{$amino}){
        $acids{$amino}++;
    }else{
        $acids{$amino} = 1;
    }
        
    #print "$amino\n";

}