Select Code to Download

my @indices = (
    76, 46, 21, 15, 33, 20, 69, 65, 40, 11, 79, 22, 70, 43, 32, 30, 57
+, 19,
...
    push @gene, shuffle @indices;
    ...
}

my $max_index = 80;
...
...
    my @string;
    ...
}