Select Code to Download

use strict;
use warnings;
...
    print "$menus{$topMenu}{label}\n";
    print "   $_\n" for @{$menus{$topMenu}{items}};
}

$nbsp; A
   app1
...
$nbsp; C
   cap
   cop