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

##</code><code>##

       for ($start;$start <= $index_max; $start++)
        {
        @origin = (@origin, $content[$start]);
        shift (@origin); #Delete ORIGIN row;
        print @origin;
        for @origin
        {

##</code><code>##

   #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";
    }

##</code><code>##

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