Help for this page

Select Code to Download

Select or download this

my %menu_structure;
for (@menu_specification) {
  my ($toplevel, @sublevel) = split /\|/;
...
    push @{ $menu_structure{$toplevel} }, @sublevel;
  }
}