use Symbol 'delete_package'; use Data::Dumper; $Yakkity::Yak::a = 42; print "a = $Yakkity::Yak::a\n"; print Dumper \%Yakkity::Yak::; print "Undeffing symbol table\n"; delete_package 'Yakkity::Yak'; print "a = $Yakkity::Yak::a\n"; print Dumper \%Yakkity::Yak::; __output__ a = 42 $VAR1 = { 'a' => *Yakkity::Yak::a }; Undeffing symbol table a = $VAR1 = {};