open my $in,  '<:encoding(utf8)', $filepath_in or die;
open my $courier_out_temp, '>:encoding(utf8)', $filepath_out_temp_courier or die;

while ( my $row = $csv->getline( $in ) ) {
    
    splice @$row, 0, 38;
 
    my $status = $csv->combine(@$row);
    if ($status) {
       print $courier_out_temp $csv->string(), "\n";
    }
	
}