sub DESTROY {
    my $self = shift;
    delete $_->{$self} for values %Vals;
    return;
}