my $frame1 = Tk::Frame->new;
my $frame1_btn_ok = Tk::Button->new;

##</code><code>##

my %widget_hash;
my $frame_count = 0;

foreach my $count(1..10){
    $widget_hash{$count}{ 'frame'} = $mw->Frame->new;
     $widget_hash{$count}{ 'ok_but'}=  
           $widget_hash{$count}{ 'frame'}->Tk::Button->new; 
 }