Select Code to Download

 my $value = $q->{'content'};
            my $param = $q->{'type'};
...
            $param = &return_param_name($param);
            print $param,"$/"; #<--------------------Here
            push @{$qryhash{$param}}, $value;

#!/usr/local/bin/perl
#title "Problem iterating AoH"
...
use Data::Dumper;
print Dumper(\@queries),"\n";
print Dumper(\%hash);

$VAR1 = [
          {
...
                        ]
        };