# ungetestet

foreach(@$ergebnisse)
{
    $beschr1 = $_->{beschr1};
    $id = $_->{id};
                
    ## Wörter in Array schreiben, zählen und nach Vorkommen sortieren

    push @liste, split /[^a-zA-ZäöüÄÖÜß-]/, $beschr1;
   
    foreach $wort (@liste) {            
        $wortliste{$wort}++;    
    }
}

# Nachdem alle Wörter ermittelt wurden
foreach $wort (sort keys %wortliste) {
    push (@neue_liste,"$wortliste{$wort}||$wort");  
}

my @sortierte_liste = sort { $b <=> $a } @neue_liste;

print "<br>".@sortierte_liste;