# List with 8 elements
    my @printline= ( @fields, $file2{$id}->[5], $file3{$id}->[5] );
    $csv->print ($FILE4,\@printline);