use Math::Complex; #### use Win32; ... "generation $generation_counter time: " . Win32::GetTickCount . " \n" ); #### my $gene_length = gene_length(); ... if ( defined( $genome{$gene} ) ) { push( @phenotype, $genome{$gene} ); ... sub gene_length { my @gls = (); foreach my $key ( keys(%genome) ) { push( @gls, length($key) ); } @gls = sort(@gls); if ( $gls[0] != $gls[$#gls] ) { die("Invalid genotype"); } return ( $gls[0] ); } #### my $gene_length = length +( keys %genome )[ 0 ];