open (HANDLE, "> ausgabe.csv");
print HANDLE ($anzahl{$_}) for (sort keys(%anzahl)) ;
close (HANDLE);