use strict;
use warnings;
use Tie::IxHash;
use Data::Dumper;

{
    my $blah = tie( %{{ 'a' => 1 }}, 'Tie::IxHash');

    print Dumper($blah);
}

##</code><code>##

$VAR1 = bless( [
                 {},
                 [],
                 [],
                 0
               ], 'Tie::IxHash' );