sub lese_email
{
  my @email;
  my $satz;
  my $datei="email.csv";
  my $buf;

  open(femail, "< $datei") or die "Kann Datei <$datei> nicht lesen!";
  $satz=0;
  $buf=<femail>; # Kopfzeile ignorieren - auslassen
  while (<femail>) {
    (
      $email[$satz]{kostenstelle}, 
      $email[$satz]{kostenstellenname}, 
      $email[$satz]{kostentraeger},
      $email[$satz]{kostentraegername},
      $email[$satz]{konto},
      $email[$satz]{kontoname}, 
      $email[$satz]{email}, 
      $email[$satz]{name} 
    )=split(';');
    chomp($email[$satz]{name});
    $satz++;     
  }
  close femail;
  return @email;
}