#!/usr/local/bin/perl
#title "Problem iterating AoH"
use strict;
use warnings;

my @queries = (
        {
             'content'=>'Blocking',
             'type' => 'blocking'
             },
             {
              'content'=>'p01',
              'type'=>'Priority'
              }
      );


my %hash;
for my $reference (@queries){ 
    push @{$hash{$reference->{'type'}}},$reference->{'content'};
    }
    
use Data::Dumper;
print Dumper(\@queries),"\n";
print Dumper(\%hash);