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