my $a = 0;
my $c = 0;
my $g = 0;
my $t = 0;