my ($gr_frame34,$dropdown34,$button34,$label34,$var,$line,$cn,$cn_full,$tmp);
sub gruppe_loeschen 
{
  
  $framelist->packForget;
  unless ($gr_frame34){ # init
  $gr_frame34 = $main->Frame;
  $label34 = $gr_frame34->Label(-text => 'Gruppe löschen') ->pack(-side => 'top');
 $dropdown34 = $gr_frame34->BrowseEntry(-browse2cmd => \&show_index, -variable => \$var))->pack(-side => 'top'); 
  #$dropdown34=$gr_frame34->Listbox(-height=>40)->pack(-side => 'top');
 show_group();
 my @group_cn;
  my @group_all;
  foreach $line (@main::group) 
  {
    ($cn_full) = split(",", $line);
    ($tmp, $cn) =split ("=",$cn_full);
    push(@group_cn,$cn);
        push(@group_all,$line);

  }
        $dropdown34->insert(0,@group_cn);
        
        
 
  $button34 = $gr_frame34->Button(-text => 'Gruppe löschen', -command => 
        sub{
                        print $var;
                        print $main::self;##POBLEME STELLE
                        print $group_all[$main::self]; ##POBLEME STELLE
                
                        
            $gr_frame34->packForget;
           }
         )->pack(-side => 'bottom');
     }
         $active_frame->packForget if ($active_frame);
     $gr_frame34 -> pack;
     $active_frame = $gr_frame34;


sub show_index 
{
 our $self = shift;
   print shift;
 }