sub DESTROY {
    my $id = refaddr shift;
    delete $_->{ $id} for \ ( %street, %city, %state, %zip);
}