sub match_query(){
    my $indexfile = shift;

   foreach my $key(keys %$indexfile){  print "DEBUG: [$key]=>[$$indexfile{$key}]\n"}