my $wrap = $menu->entrycget(3, '-menu')->entrycget(3, '-menu');
my $word = $wrap->entrycget(0, '-value');  # 'word'
${ $wrap->entrycget(0, '-variable') } = $word;