$b = \%a;
print( (tied(%$b) ? 'tied' : 'NOT tied'), " b\n");