my @sortednames=
        sort {$geneP{$a}{minP}+0.0 < $geneP{$b}{minP}+0.0} keys(%geneP);

foreach my $name (@sortednames){
        print $geneP{$name}{minP},"\t$name\n";
}