use strict;
use warnings;

use Tk;
my ($mw);#,$menubar,$file,@lables, @label_texts);
$mw=MainWindow->new;

my $menub=$mw->Menubutton(-text => "File",
    -menuitems => [
        [ 'command' => "New", "-command" => \&newfile, "-underline" =>
+ 0 ],
        [ 'command' => "Open", "-command" => \&openfile, "-underline" 
+=> 0 ],
        [ 'command' => "Save", "-command" => \&savefile, "-underline" 
+=> 0 ],
        [ 'command' => "SaveAs", "-command" => \&saveasfile, "-underli
+ne" => 4 ] ] )->pack

$mw->Button(-text=>'test', -command=>\&test)->pack;

MainLoop;

sub test{
    print "in test\n";
    foreach my $i (1 .. 4){
        $menub->entryconfigure($i,-label=>'8 million ways to die (1986
+)[HD].TAG' );
    }
}
[download]

Good thinking! Problem for me is I'm trying to do a "standard" looking MRU list in the File menu, including separators, and need to be able to modify the group of menu entries representing the MRU items as users open files, preferably without using magic numbers.

I've Changed my MRU reordering function to use ->entryreconfigure as suggested and this certainly fixes the problem. Finding the index in the menu where the MRU starts without resorting to magic numbers was not possible, but as the "Save As..." item is followed by a separator, then the first MRU entry, I can get the index for "Save As...", and add 2 to it for the MRU start. I normally hate manifest constants like this, but in this case, I can live with it. Thanks for the suggestion!