Добавление столбца в csv файл через командную строку

#!/usr/bin/perl

use strict;

###
my $file_red   = './winequality-red.csv';
my $file_white = './winequality-white.csv';
my $file_out   = './result.csv';
###

my $first = 1;

open( my $fout, ">", $file_out ) or die $!;
add_file( $file_red,   'red' );
add_file( $file_white, 'white' );
close $fout;

sub add_file {
    my $namefile = shift;
    my $type     = shift;

    open( my $fh, "<", $namefile ) or die $!;

    if ( $first ) {
        print $fout '"type";' . <$fh>;
        $first = 0;
    }

    while ( my $line = <$fh> ) {
        my @ar_line = split( ';', $line );
        my $alcohol = $ar_line[10];
        my $quality = $ar_line[11];

        if ( $alcohol > 10 && $quality > 6 ) {
            print $fout "$type;$line";
        }
    }

    close $fh;
    return;
}

1;

#!/bin/bash

WW="winequality-white.csv"
WR="winequality-red.csv"
WINE="winequality-final.csv"

[[ -n $WW && -n $WR ]] || { echo "no such file"; exit; }

for VWR in $WW $WR; do
    {
    read a
    if [[ $VWR == $WW ]]; then
        echo "$a;\"type\"" > $WINE
	CLV="white"
    else
	CLV="red"
    fi
    while read b; do
	echo $b | {
	    IFS=";" read -a d
	    if (( $(echo "${d[11]} > 6"  | bc -l) &&
		  $(echo "${d[10]} > 10" | bc -l) )); then
		      echo "$b;$CLV" >> $WINE
	    fi
	}
    done
    } < $VWR
done