my $max_index = 80;
...
sub genotype {
    my @seq;
    my @gene = shuffle 0 .. $max_index;
    my @string;
    ...
}