I usually go with the hash approach, because it is then easier to modularize. So

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

becomes

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; 
 }
[download]

The advantages of doing that way, is that you can easily use a variable in your hash strings, rather than trying to concantate strings into strings