in reply to remapping an arrayref of hashrefs to a hashref of array refs

my $src = [ ... ];
my %dst;

for (@$src) {
   my $id = delete( $_->{people_id} );
   push @{ $dst{$id} }, $_;
}

[download]

In Section Seekers of Perl Wisdom