<% $user = $main::User; $cal = $Session->{'calendar'}; %> Menu: -- Select Command -- <% $c = $main::CommandList; foreach $category (sort {$c->{$a}->{order} <=> $c->{$b}->{order}} keys %$c) { %> <%= $category %> <% foreach $command (@{$c->{$category}->{commands}}) { %>       • <%= $command->{title} %> <% } %> <% } %>