oreach $wort (@liste) {            
        $wortliste{$wort}++;    
    }

    foreach $wort (sort keys %wortliste) {
        push (@neue_liste,"$wortliste{$wort}||$wort");  
    }