Select Code to Download

sub match_query(){
    my $indexfile = shift;

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