sub einlesen {
  # no global $count
  my $count = 0;

  $db->Sql("select * from customers");

  while ($db->FetchRow()) {
    # new hash for each Row
    my %customer = (
      'customerId'   => $db->Data("kundennummer"),
      'street'       => $db->Data("strasse"),
      'streetNumber' => $db->Data("hausnummer"),
      'city'         => $db->Data("ort},
    );

    $allCustomers{$count++} = \%Customer;  ## Linuxer "ddv" removed from \%ddvCustomer
  }

  return %allCustomers;
}