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