I always use hashes to store names for the anonymous widgets, making them "non-anonymous" :-) It seems messier at first, but it makes it very easy to access any widget. As a bonus, you have it setup as a hash to make placing it into a package or module easier.

my %hash;   # to store all the widgets in

sub aaa {
$count = 1;
        while($count <= $entry_amount->get) {
        $label_g = $count_g;
        $button_b = $count_b;

        $hash{$count}{'frame'} = $mw->Frame()
                       ->pack(-side=>top);
        $hash{$count}{'label'} =
             $hash{$count}{'frame'}->Label(-text=>"Variable")
                       ->pack(-side=>left, -padx=>5, -pady=>5);
        $hash{$count}{'entry'} =
              $hash{$count}{'frame'}->Entry(-width=>30)
                      ->pack(-side=>left, -padx=>5, -pady=>5);
        $mw->update;
        $count++;
        }
}
[download]