my $package;
print ${$package . '::a' };