print sort {
             $score{$a} <=> $score{$b};
           }
#@var;

for my $pos (0..$#gff)