Select Code to Download

    push( @{ $gene_hash{$gene_key}{min_start} }, $start ); 
    push( @{ $gene_hash{$gene_key}{max_end} },   $end ); 
    push( @{ $gene_hash{$gene_key}{max_ex} },    $ex );

   my $Low=min( @ {$gene_hash{$key}{min_start} } );   
   my $High=max( @ {$gene_hash{$key}{max_end} } );
   my $High_ex=max( @ {$gene_hash{$key}{max_ex} } );

while (<DATA>) {
    chomp;
...
    $$cur_gene{max_ex} = $ex unless $$cur_gene{max_ex}>$ex;
    $gene_hash{$gene_key} = $cur_gene;
}

   my $Low=$gene_hash{$key}{min_start};   
   my $High=$gene_hash{$key}{max_end};
   my $High_ex=$gene_hash{$key}{max_ex};