#!/usr/bin/perl

use Data::Dumper;
my $var = "Yak";
${ 'Yakkity::' . $var . '::a' } = 42;
print "a = $Yakkity::Yak::a\n";
print Dumper \%Yakkity::Yak::;
print "Undeffing symbol table\n";
undef %Yakkity::Yak::;
print "a = $Yakkity::Yak::a\n";
print Dumper \%Yakkity::Yak::;
print "Undeffing glob\n";
undef *Yakkity::Yak::a;
print "a = $Yakkity::Yak::a\n";
print Dumper \%Yakkity::Yak::;

##</code><code>##

a = 42
$VAR1 = {
          'a' => *Yakkity::Yak::a
        };
Undeffing symbol table
a = 42
$VAR1 = {};
Undeffing glob
a = 
$VAR1 = {};