my $dsc;
my $desctitel;
my $beschreibungstitel;
my $descpt;
# ....
# ....
my $beschreibungstitel = $suchpopupframe->Label(-textvariable=> \$desctitel, -font=>'{Bimini} 12 {bold} {underline}', -background=>'#F0E68C')->place(-x=>'480', -y => '96');
  my $descpt = $suchpopupframe->Label(-textvariable=> \$dsc, -font=>'{Bimini} 12 {bold}', -background=>'#F0E68C')->place(-x=>'480', -y => '120'); 
# ....
sub testus {
  my @searcherarray = grep { $_ ne "0" } @suchers;
  for(my $i = 0;$i < @searcherarray;$i++) {
    $searcherarray[$i] -= 1;
    $desctitel = $av_searches[$searcherarray[$i]];
    $dsc = $germandescription[$searcherarray[$i]];
    $dsc =~ s/(.*){5}/$1\n/g;
  }
}