Select Code to Download

[Add Menu]
  Name = L1A
...
-------------------------

etc.. etc..

$VAR1 = {
          'L1A' => {
...
                                 }
                   }
        };

$VAR1 = [
          {
...
            'Title' => 'L1A - L2A - L3B'
          }
        ];

$Menu_Multi_Hash{'L1A'}{'L2A'} = 'none';

...
$Menu_Multi_Hash{'L1A'}{'L2A'}{'L3B'}{'L4A'} = 'exe command';

(please note that the first three elements are the ones arrived by spl
+itting the 'Title', the fourth is the 'Text' and the right hand side 
+is the 'Action')

use Data::Dumper;
use strict;
...
    my($key, $value) = @_;
    $temp_hash{$key} = $value;
};