use Data::Dumper;
use Tie::IxHash;
tie my %hash_ref, 'Tie::IxHash' ;

%hash_ref = (
             'MAIN' => {
                        'ZOP' => 
                                {'Dev', undef, 
                                'Con', undef, 
                                'Test', undef, 
                                'Exit', undef, 
                                'New', undef },
                        'AP' => 
                                {'Dev', undef, 
                                'Con', undef, 
                                'Test', undef, 
                                'Exit', undef, 
                                'New', undef }, 
                         'Exit' => undef,                               
          
                         }
             );
print Dumper(\%hash_ref);