sub mysub {
   tie my $tied, 'MyClass';
   return \$tied;      # Returns a ref to the tied var.

my $ref_to_tied1 = mysub();
my $ref_to_tied2 = $ref_to_tied;

print($$ref_to_tied1, "\n");  # Calls $tied's FETCH.
print($$ref_to_tied2, "\n");  # Calls $tied's FETCH.