in reply to perl TK strange case

It's normal behavior and it works the same on Linux, see Tk::Menu -> TEAR-OFF ENTRIES.

It's used for detaching the popup window, you can control it with the tearoff option:

my $menu = $menubar->cascade(-label => $text1, -tearoff => 0);