#This chromosome have tags. Identify CDS ones.
    my @features =$mySeq ->all_seqfeatures();
    foreach $feature (@features)
    {
        my @tag = $CDS;
        my @feat = $join;
        foreach $tag ( $feat->all tags() );
        print "Feature region has tag", $tag, "CDS",
        join(‘ ‘,$feat->each tag value($tag)), "\n";
    }