johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -MData::Dumper -E '
my $h1 = {
   location_setting => [ q{409} ],
   status           => [ q{501} ],
   };

my $h2 = {
   status           => [ qw{ 137 124 } ],
   location_setting => [ q{405} ],
   classification   => [ q{0} ],
   };

my $x = { %{ $h1 } };
push @{ $x->{ $_ } }, @{ $h2->{ $_ } } for keys %{ $h2 };

print Data::Dumper->Dumpxs( [ $x ], [ qw{ x } ] );'
$x = {
       'classification' => [
                             '0'
                           ],
       'status' => [
                     '501',
                     '137',
                     '124'
                   ],
       'location_setting' => [
                               '409',
                               '405'
                             ]
     };