in reply to How do I pass refs to tied vars ?

Or there's always, in fact, using an actual reference. 
$b = \%a;
print( (tied(%$b) ? 'tied' : 'NOT tied'), " b\n");

[download]
This produces the expected results.

In Section Seekers of Perl Wisdom