#!/usr/bin/env perl
# Hash order maintained
use strict;
use warnings;

use Test::More tests => 1;
use Tie::IxHash;
use Data::Dumper;

tie my %foo, 'Tie::IxHash';
$foo{a}{c} = [3, 2, 1];
$foo{a}{b}{x} = { s => 'senatus', p => 'populus', q => 'que', r => 'romanus'};
$foo{a}{b}{y} = "ravi";


print Dumper \%foo;