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