unless (open (FH, $filename)) {
  die "Error: couldn't read '$filename': $!";
}
while (<FH>) {
  chomp($_); # zeilenumbruch am ende killen
  my %items = &ParseLine($_);

  # mach was mit %items
} # while
close (FH);
# -----------------------------------------------------
sub ParseLine {
  my ($line) = @_;

  my %data = ();
  foreach my $item (split(/,/, $line)) { # item ist z.B. "Ursrpung=001"

    # $key ist z.B. "Ursprung", $value z.B. "001"
    my ($key, $value) = split(/=/, $item, 2);

    # in hash speichern; achtung, falls ein key mehrere werte hat, bleibt nur
    # der letzte
    $data{$key} = $value;
  } # foreach

  return %data;
} # ParseLine