#!/usr/bin/perl

use warnings;
use strict;

my @fields;
my $line;
my @lines;
my @values;
my $i;
my @resultline;

my $dir = './FXE';
foreach my $fp (glob("$dir/*")) {
    open my $fh, "<:encoding(utf8)", $fp or die "can't open $!";
    while ($line = <$fh>) {   
        chomp $line;;
        @fields = split(/\,/ , $line);
        @values = ();
        if($fields[0] >= 1101227) {
            push(@values, $fields[0]);
            foreach $i (1 .. 3) {
                push(@values, $values[$i - 1] + $fields[$i]);
            }
            foreach $i (4 .. 7) {
                push(@values, $fields[$i]);
            }
            push(@values, "\n");
            my $resultline = join(',', @values);
            print $resultline;
            push(@lines, $resultline);
        }
    }
    close $fh or die "can't close $!";
}

# foreach $i (@lines) {
#    print $i;
# }