Select Code to Download

            @cds = (@cds, $content[$start]);
            print @cds;

       for ($start;$start <= $index_max; $start++)
        {
...
        print @origin;
        for @origin
        {

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

open(my $file, '<', $file_name) or die "Sorry, we can't open your $fil
+;
open (WRITE, ">>concatenare.txt");