my @nucleotide_array = split //, $seq_string;
            foreach my $nucleotide ( @nucleotide_array ) {
                chomp $nucleotide;