$dropdown34 = $gr_frame34->BrowseEntry()->pack(-side => 'top'); 
  show_group();
  $dropdown34->insert(0,@main::group);

  $button34 = $gr_frame34->Button(-text => 'Gruppe löschen', -command => 
	sub{
             print $dropdown34->get();
             $gr_frame34->packForget;
           }
           )->pack(-side => 'bottom');
     }

my $choice;
$dropdown34 = $gr_frame34->BrowseEntry( -variable => \$choice )->pack(-side => 'top'); 
show_group();
$dropdown34->insert(0,@main::group);

$button34 = $gr_frame34->Button(-text => 'Gruppe löschen', -command => 
    sub{
             print $choice;
             $gr_frame34->packForget;
           }
           )->pack(-side => 'bottom');
     }