use strict;
use Data::Dumper;

# put something in package "Hubba"
$Hubba::abba = "zappa\n";

# assign Hubba-symtable to Bubba-symtable
%Bubba:: = %Hubba::;

# verify that they are the same
print Dumper(\%Hubba::);
print Dumper(\%Bubba::);

# use 2 ways to print $abba from Hubba
print ${*Hubba::abba{SCALAR}};  # works
print $Hubba::abba;             # works

print "and now Bubba:\n";
print ${*Bubba::abba{SCALAR}};  # prints nothing
print $Bubba::abba;             # print nothing