#!/usr/bin/perl
$Yakkity::Yak::a = 42;
print "a = $Yakkity::Yak::a\n";
print "Undeffing symbol table\n";
undef %Yakkity::Yak::;
print "a = ${'Yakkity::Yak::a'}\n";  # <- Hardcoded reference removed
__END__
a = 42
Undeffing symbol table
a =