#!/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::;