my $gene_length         = gene_length();