my $pkg = \%{ $pkg_name . '::' };
delete $pkg->{$_} for grep !/::\z/, keys %$pkg;

##</code><code>##

my $pkg = \%{ $pkg_name . '::' };
delete @{$pkg}{ grep !/::\z/, keys %$pkg };