#!c:\Perl\bin\perl
use warnings;
use strict;
use diagnostics;

use constant KANRI_01_0	=> 0x00000001; # TBC
use constant KANRI_01_1	=> 0x00000002; # TBC
use constant KANRI_02_0	=> 0x00000004; # TBC
use constant KANRI_02_1	=> 0x00000008; # TBC
use constant KANRI_03_0	=> 0x00000010; # TBC
use constant KANRI_04_1	=> 0x00000020; # TBC
use constant KANRI_04_2	=> 0x00000040; # TBC
use constant KANRI_04_3	=> 0x00000080; # TBC
use constant KANRI_04_4	=> 0x00000100; # TBC
use constant KANRI_05_1	=> 0x00000200; # TBC
use constant KANRI_05_2	=> 0x00000400; # TBC
use constant KANRI_06_1	=> 0x00000800; # TBC
use constant KANRI_07_1	=> 0x00001000; # TBC
use constant KANRI_07_2	=> 0x00002000; # TBC
use constant KANRI_07_3	=> 0x00004000; # TBC
use constant KANRI_07_4	=> 0x00008000; # TBC
use constant KANRI_07_5	=> 0x00010000; # TBC
use constant KANRI_08_1	=> 0x00020000; # TBC

my %menuHash = ( Outer1		=> { O1Inne1	=> KANRI_04_1,
								 O1Inne2	=> KANRI_04_2,
								 O1Inne3	=> KANRI_04_3,
								 O1Inne4	=> KANRI_04_4,
									} ,
				Outer2		=> { O2Inne1	=> KANRI_05_1 },
				Outer3		=> { O3Inne1	=> KANRI_06_1 },
				Outer4		=> { O4Inne1	=> KANRI_07_1,
								 O4Inne2	=> KANRI_07_2,
								 O4Inne3	=> KANRI_07_3,
								 O4Inne4	=> KANRI_07_4,
								 O4Inne5	=> KANRI_07_5,
				},
				Outer5		=> { O5Inne1	=> KANRI_08_1 },
				);

for my $mainMenuItem ( keys %menuHash ) {
		print $mainMenuItem."\n";
		for my $subMenuItem ( keys %{ $menuHash{$mainMenuItem} } ) {
			print "$subMenuItem = $menuHash{$mainMenuItem}{$subMenuItem}   ";
		}
		print "\n";
	}

##</code><code>##

Outer1
01Inne1 = 32
01Inne2 = 64
01Inne3 = 128
01Inne4 = 256
Outer2
02Inne1 = 512
etc....

##</code><code>##

Outer4
O4Inne5 = 65536   O4Inne3 = 16384   O4Inne2 = 8192   O4Inne4 = 32768   O4Inne1 = 4096   
Outer2
O2Inne1 = 512   
Outer1
O1Inne2 = 64   O1Inne4 = 256   O1Inne3 = 128   O1Inne1 = 32   
Outer5
O5Inne1 = 131072   
Outer3
O3Inne1 = 2048