$VAR1 = \[
            {
              'content' => 'Blocking',
              'type' => 'Blocking'
            },
            {
              'content' => 'P01',
              'type' => 'Priority'
            }
          ];

##</code><code>##

print Dumper(\%qryhash);

$VAR1 = {
          'Blocking' => [
                          'Blocking'
                        ],
          'Priority' => [
                          'P01'
                        ]
        };

##</code><code>##

print Dumper(\%qryhash);

$VAR1 = {
          'Blocking' => [
                          'Blocking'
                        ]
        };

##</code><code>##

sub extract_table_queries{
	my $configitem = $_[0];
	my @assigneearray = ();
       my %qryhash;
        print ref $configitem->{'config'};
	if (ref $configitem->{'config'} eq 'ARRAY'){
		@queries = @{$configitem->{'config'}};
		$i = 0;
		$count = @queries;
		foreach $q (@{$configitem->{'config'}}){
			my $value = $q->{'content'};
			my $param = $q->{'type'};
			
			#$value =~ s/^\s+|\s*$//g;
			$param = &return_param_name($param);

			push @{$qryhash{$param}}, $value;
		
			if (lc $param eq lc $configitem->{rollup}){
				push @rolluplist,$value;
			}
			
			my $tmp = sprintf("%-15s",$param); 
			print "------>$tmp: $value\n";

		}
	print Dumper(\%qryhash);
	print Dumper(\$configitem->{'config'});
exit;
		return(\%qryhash);
	}
}