adding another key into perl hash reference is not working - perl-data-structures

Question

Thanks in advance and your answer is most helpful.
I am fetching two arrayofhashref using $sth->fetchall_arrayref({}) from Database let's a and b where
a= [
{
'name' => 'test',
'id' => '10',`enter code here`
},
{
'name' => 'foo',
'id' => '22',
}
];
b= [
{
'dept' => 'IT',
'mob' => '880978'
},
{
'dept' => 'CSE',
'mob' => '877687'
},
];
The o/p should be :
a= [
{
'name' => 'test',
'id' => '10',
b= [
{
'dept' => 'IT',
'mob' => '880978'
},
{
'dept' => 'CSE',
'mob' => '877687'
},
];
},
{
'name' => 'foo',
'id' => '22',
b= [
{
'dept' => 'IT',
'mob' => '880978'
},
{
'dept' => 'CSE',
'mob' => '877687'
},
];
}
];
I did like :
my $count = 0;
foreach my $row (#$a){
$a->[$count]{b} = $b;
$count++;
}
If I pass $b as "heloo" it is working fine , but how can I pass this array of hash ref ?

Answer 1

I am not sure if I uderstood your question, but your code seems to be working.
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 1;
my $a = [
{
'name' => 'test',
'id' => '10',
},
{
'name' => 'foo',
'id' => '22',
}
];
my $b = [
{
'dept' => 'IT',
'mob' => '880978'
},
{
'dept' => 'CSE',
'mob' => '877687'
},
];
#The o/p should be :
my $wanted = [
{
'name' => 'test',
'id' => '10',
b => [
{
'dept' => 'IT',
'mob' => '880978'
},
{
'dept' => 'CSE',
'mob' => '877687'
},
],
},
{
'name' => 'foo',
'id' => '22',
b => [
{
'dept' => 'IT',
'mob' => '880978'
},
{
'dept' => 'CSE',
'mob' => '877687'
},
],
}
];
#I did like :
my $count = 0;
for my $row (#$a){
$a->[$count]{'b'} = $b;
$count++;
}
is_deeply($a, $wanted, 'data structures equal');
gives:
1..1
ok 1 - data structures equal