Perhaps you look for something like reset

reset deletes symbols starting with a specific letter. tr-like ranges can be used.

reset $foo is similar (but not at all equal) to

for (grep /^[$foo]/, keys %::) {
    undef @$_;
    undef %$_;
    undef $$_;
}
[download]

I want subs to be destroyed as well.

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk