$X::Y::a=1;
sub X::Y::f {}

##</code><code>##

delete $X::{"Y::"};