$wjLabEntry->destroy; $mode_buttons->destroy; $wjLabEntry = $mw->Frame(-bg => "wheat1")->pack(); $mode_buttons = $mw->Frame(-bg => "wheat1")->pack(); #### $_->destroy for ( $wjLabEntry->children ); $_->destroy for ( $mode_buttons->children );