### Eingabedatei öffnen
foreach my $in_fh = (@ARGV) {
#my @daten_zeile = split /#/, $zeile;

my $sum = 0;
open(my $data, '<', $in_fh) or die "Could not open '$in_fh' $!\n";
 
while (my $line = <$data>) {
  chomp $line;
 
  my @fields = split "," , $line;
  $out_fh += $fields[2];
}