open(AUSGABE, "$ausgabe);
#Ausgabe aller großgeschriebenen Wörter
foreach $elem /^(@alle_sortierten_woerter) {
  if ($elem=~/[A-ZÄÖÜ]{1}/) {
    print(AUSGABE "\"$elem\" kommt frequenzliste{$elem} mal vor \n");
  }
}