my %choices = (
    'File Systems' => \&fs_sub,
    'Memory' => \&mem_sub
);

for (keys %choices) {
    $choice_menu->command(
        -label => $_,
        -activebackground => '#CCCCCC',
        -command => $choices{$_});
}