sub init_schueler_frame { # remove all childrens to have a fresh new frame for my $children ( @{$f2->children || []} ) { $children->destroy; } $f2->Label( -text => 'Schueler' )->pack; return; }