sub get_nonrandom_chromosome {
    my @scores = map { get_fitness_score($_) } @population;
    my $rulet_position           = rand( sum @scores );
    my $temp_score               = 0;

    foreach my $i ( 0 .. $#scores ) {
        $temp_score += $scores[ $i ];
        return $population[ $i ] if $temp_score > $rulet_position;
    }
}