Select Code to Download

use strict;
use warnings;
...
foreach my $finalsequence (@allSequence){
    ++$i % @Bases ? print "$finalsequence\t" : print "$finalsequence\n
+";
}

sub Ordered_Combinations {
    my $n = shift;
...
               } @_
         : @_
}