print sort {
             $score{$a} <=> $score{$b};
           }
for my $pos (0..$#gff)