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