...
my $clone; $MW->Walk(sub { if ($_[0]->isa("Tk::Menu") && $_[0]->MasterMenu eq $MM->menu) { $clone = $_[0] }});
$clone -> bind("<Key-F1>"=> \&printentry);
...
sub printentry {
    my $menu = shift;
    warn $menu->index('active');
}