use strict;
use warnings;
use Tk;
use subs qw/menubar_etal/;

my $mw = MainWindow->new;
$mw->configure(-menu => my $menubar = $mw->Menu(-menuitems => menubar_etal));

MainLoop;

sub menubar_etal {

        [
          map ['cascade',  $_->[0], -menuitems => $_->[1]],
              ['~Preference',
                [
                    [qw/cascade Cascade1 -tearoff 0 -menuitems/ =>
                        [
                          map ['radiobutton', $_],qw/1 2 3 4/,                              
                        ],
                    ],
					
					[qw/cascade Cascade2 -tearoff 0 -menuitems/ =>
                        [
                          map ['radiobutton', $_],qw/A B C D/,                              
                        ],
                    ],
					
                ],

				
              ],
        ];

}