my $sequence;
my $count =0;
my $base = ("A"|"C"|"G"|"T");