my $dir = './FXE'; 
foreach my $fp (glob("$dir/*")) {
 open my $fh, "<:encoding(utf8)", $fp or die "can't open $!";
 while ( my $row = $csv->getline( $fh ) ) 
 {
   if($row->[0] >=1101227)    
   {
    $Values[$cnt++]  = $row->[0];
    $Values[$cnt++] += $row->[1];
    $Values[$cnt++] += $row->[2];
    $Values[$cnt++] += $row->[3];
    $Values[$cnt++]  = $row->[4];
    $Values[$cnt++]  = $row->[5];
    $Values[$cnt++]  = $row->[6];
    $Values[$cnt++]  = $row->[7]; 
   }
 }
 $csv->eof or $csv->error_diag();
 close $fh or die "can't close $!";
[b] $cnt=0;[/b]
}