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; 
 }