use List::Util qw(first);
..
my $add_in = first { $_->{status} eq 'houses' } @$data;