my %hashartikel = ();
while (<INFILE>) {
  my ($artikelNr, $artikelZahl) = split(/ /, $_, 2); 
  if (exists $hashartikel{$artikelNr}) {
    $hashartikel{$artikelNr} += $artikelZahl;
  }
  else {
    $hashartikel{$artikelNr} = $artikelZahl;
  }
} # while