Select Code to Download

sub select_your_school {
    my $namesref = shift;
...
                           -values =>  \@menuitems ,
                          }),
          ....

sub select_your_school {
    my $namesref = shift;
...
              -values =>  [ sort keys %$namesref ],
                          }),
          .....

# Sort by alpha
sort keys %$namesref
...
sort { $a <=> $b } keys %$namesref

# etc...