Well, regarding our converstaion in chat about the gratuitious use of symrefs and a better way. The simplest solution is to reverse your hash:

my %choices = (
        'File Systems' => \&fs_sub,
        'Memory'       => \&mem_sub
);
foreach (keys(%choices)) {
           $choice_menu->command(-label => $_,
                -activebackground => '#CCCCCC',
                -command => %choices{$_});
}
[download]

Now its easy to see what you are doing (providing a disptach table) and its no less code or stress.

HTH

Yves / DeMerphq
--
Have you registered your Name Space?