Select Code to Download

$VAR1 = \[
            {
...
              'type' => 'Priority'
            }
          ];

print Dumper(\%qryhash);

...
                          'P01'
                        ]
        };

print Dumper(\%qryhash);

...
                          'Blocking'
                        ]
        };

sub extract_table_queries{
    my $configitem = $_[0];
...
        return(\%qryhash);
    }
}