...
       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;
....