my $active_frame;
{my ($gr_frame,$dropdown1,$button1);

 sub gruppe_loeschen
 
 {
     unless ($gr_frame){
         $gr_frame = $main->Frame;
     
         $dropdown1 = $gr_frame->BrowseEntry(-width=> 50,
                                         )->pack(-side => 'top');
 
         $dropdown1->insert(0,'eins','zwei','drei','vier','fünf');

         $button1 = $gr_frame->Button(-text => 'Gruppe löschen',
                                      -command => sub{
                                          #irgendetwas
                                          $gr_frame->packForget;
                                      }
 
                                  )->pack(-side => 'bottom');
     }
     $active_frame->packForget if ($active_frame);
     $gr_frame -> pack;
     $active_frame = $gr_frame;

 }
 }

{
my ($frame, $dropdown);
sub benutzer_loeschen
 
{
     unless ($frame){
         $frame = $main->Frame;
         $dropdown = $frame->BrowseEntry(-width => 50,
                                     )->pack( -side => 'top');
         $dropdown->insert(0,'eins','zwei','drei','vier','fünf');
 
         $frame->Button(-text => 'Benutzer löschen',
                        -command => sub{
                            #irgendetwas
                            $frame->packForget;
                        }
 
                    )->pack(-side,'bottom');
     }
     $active_frame->packForget if ($active_frame);
     $frame->pack;
     $active_frame = $frame;
 }
 }