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