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

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

    print Dumper($blah);
}