choroba

#!/usr/bin/perl
use warnings;
use strict;

use Benchmark qw(cmpthese);
use Test::More;

my $String = "ATGC" x 1000;
my @Genes = qw(A T G C);
my %Count;