Select Code to Download

my @start = ([],[],[]);
my $sequence = 'ATGATGAATGAATAGTAGATAG';
...
      @{$start[$i%3]} = ();
   }
}

0..14
3..14
7..21

ATGATGAATGAATAGTAGATAG
STA123123123END
   STA123123END
       STA123123123END