Select Code to Download

    my @parents = @population[40 .. 49];
    shuffle @parents;
...
        while @parents;

    @population[0 .. 4] = map { mutate($_) } @children;

sub mutate{
    my @string = @{$_[0]};
...
    }
    return \@string;
}

                my $temp = $string[$i][$position1];
                $string[$i][$position1] = $string[$i][$position2];
                $string[$i][$position2] = $temp;