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

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

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

is_deeply ([keys %foo], [qw/a b/], 'Order retained');