map { $menubar->cascade( -label => '~' . $_->[0], -menuitems => $_->[1]) } [ 'Choices', char_string ];

sub char_string {
	[
		['command', 'foo', -command => sub { $char_string = "this"} ],
		['command', 'bar', -command => sub { $char_string = "that"} ],
	]
}