use Tie::IxHash;
use Data::Dumper;

my %data;
my $ref = \%data;

my $tied_obj = tie(%data, 'Tie::IxHash');

$ref->{one}   = 1;
$ref->{two}   = 2;
$ref->{three} = 3;
$ref->{four}  = 4;

print Dumper $ref;
print Dumper $tied_obj;