sub aaa {
$count = 1;
        while($count <= $entry_amount->get) {
        $label_g = $count_g;
        $button_b = $count_b;
        
        $_ = $mw->Frame()->pack(-side=>top);
        $_->Label(-text=>"Variable")->pack(-side=>left, -padx=>5, -pady=>5);
        $_->Entry(-width=>30)->pack(-side=>left, -padx=>5, -pady=>5);
        $mw->update;
        $count++;
        }
}