my @field = $csv->fields;
        my $count = 0;
        for my $column (@field) {
            ++$count;
            $d_array[$line_number][$count] = $column;
        }