# Namen für den Hash generieren
  $dat=~s/^(.+?)\..+$/$1/s;
  # wenn noch kein hasheintrag mir dem Namen existiert einen erzeugen
  $datensaetze{$dat}={} unless (exists($datensaetze{$dat}));