I got it to work this way:

for my $row (0..$#data) {

    # Stick all the array data in here
    my $all_data = $data[$row];
    
    push @{ $data[$row] },  $homes_by_names{$all_data->[1]};
   
 }
[download]