use strict;

use Tie::IxHash;

my $h = {};
tie %$h, "Tie::IxHash";
my $a;

$h->{FOO} = 'foo';

print "reference to a = ", \$a, "\n";
print "reference to h->{FOO} = ", \$h->{FOO}, "\n";
show_refs(\$a, \$h->{FOO});
print "reverse order ...\n";
show_refs(\$h->{FOO}, \$a);

sub show_refs
{
    my $ref;

    foreach $ref (@_)
    {
        print "in show_refs, ref = $ref\n";
    }
}