push @houselist, \%HOUSE;
したあと、
$houselist[あれこれ]->{id}
が重複するものを、
@houselist から取り除く（※）にはどうすればいいのでしょう？
※取り除くというか、1つだけ残したいです。