sub einlesen {
  $count = 0;
  $db->Sql("select * from customers");
  while ($db->FetchRow()) {
    $customer{'customerId'} = $db->Data("kundennummer");
    $customer{'street'} = $db->Data("strasse");
    $customer{'streetNumber'} = $db->Data("hausnummer");
    $customer{'city'} = $db->Data("ort
    $allCustomers{$count} = \%Customer;  ## Linuxer "ddv" removed from \%ddvCustomer
    $count++;
  }
  return %allCustomers;
}