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

 push @{ $data[$row] },  $homes_by_names{$row->[1]};

}