Note that for readability you can also use the labels instead of numerical indices:

my $wrap = $menu->entrycget('View','-menu')->entrycget('Wrap','-menu')
+;
$wrap->invoke('Word');
[download]

@roho: I don't know how choroba did it, but I found out that you've been using a method $more->menu and failed to find documentation for it. This made me curious, and I found that this method gets you the hardcoded menu from the Tk::Text widget, only that you don't get a chance to set the -wrap option for this widget. The rest was a matter of digging through this menu and the Tk docs...