sub zeige_beschreibung {
  my $ausgabe = $description[$_[0]];
  $infoframe->Label( -text=>$ausgabe, -background => 'yellow' )->place(-x=>'5');
  }