use strict; use warnings; my @fields; my $cnt = 0; my @Values; my $dir = './FXE'; foreach my $fp (glob("$dir/*")) { #printf "%s\n", $fp; open my $fh, "<:encoding(utf8)", $fp or die "can't open $!"; while (<$fh>) { chomp; @fields = split(',', $_); if($fields[0] >=1101227) { $Values[$cnt++]= $fields[0]; $Values[$cnt++]= $Values[$cnt] + $fields[1]; $Values[$cnt++]= $Values[$cnt] + $fields[2]; $Values[$cnt++]= $Values[$cnt] + $fields[3]; $Values[$cnt++]= $fields[4]; $Values[$cnt++]= $fields[5]; $Values[$cnt++]= $fields[6]; $Values[$cnt++]= $fields[7]; $Values[$cnt++]= "\n"; } } close $fh or die "can't close $!"; $cnt=0; } print join(",", @Values);