Select Code to Download

use Math::Complex;

use Win32;
...
        "generation $generation_counter time: " . Win32::GetTickCount 
+. " \n" );

    my $gene_length         = gene_length();
...
...
    }
    return ( $gls[0] );
}

    my $gene_length         = length +( keys %genome )[ 0 ];