sub empty_table {
    delete @{"$_[0]::"}{grep !/\b::\z/, keys %{"$_[0]::"}};
}