#! /path to perl

use lib "path to auto tie";
use Data::Dumper;
use Tie::Autotie 'Tie::IxHash';

tie %test_var, 'Tie::IxHash';

$tmp1 = 'MAIN';
$tmp2 = 'New';

$test_var{MAIN}{APP} = undef;
$test_var{$tmp1}{$tmp2} = undef;
$test_var{MAIN}{OP} = undef;
$test_var{MAIN}{Vxit} = undef;
$test_var{MAIN}{Exit} = undef;
$test_var{MAIN}{OP}{PRO} = undef;
$test_var{MAIN}{OP}{DEV} = undef;
$test_var{MAIN}{OP}{CON} = undef;

print Dumper(\%test_var);