Re^2: Help with function, count matches and store in hash & retrieve sorted

I am not sure how I would print my entire list of query strings.

How about just when there is a problem

...
       my $max_count = shift @array;

unless (defined ($max_count)) { 
  print "queryseq  = |||$queryseq|||\n";
  print Dumper($indexfile); 
  exit; 
}


        my $element;
        $element->{bar} = $key;
        $element->{max} = $max_count;
        push @match_count, $element;
....
[download]

Comment on Re^2: Help with function, count matches and store in hash & retrieve sorted Download Code