textbox84,textbox95,textbox94,textbox85,textbox86,textbox92,Textbox17,Textbox18
1,1,ea,"456.321.07","TRAY, BOTTOM, 66#47L-20503",2/9/2016,Production Item: 1234,WO # : W00007382
2,1,ea,"456.321.12","TRAY, TOP, 66#51R-20507",2/9/2016,Production Item: 1234,WO # : W00007382
3,1,ea,"456.321.15","TUBE, TALL, 66#15CR-21862",2/9/2016,Production Item: 1234,WO # : W00007382
4,2,ea,"460.339.01","WRAP, LGE GRP, xx#03CR-28081",2/9/2016,Production Item: qwe2b,WO # : W00007432
5,4,ea,"460.339.02","TRAY LGE GRP, xx#49R-27709",2/9/2016,Production Item: qwe2b,WO # : W00007432
6,2,ea,"460.339.01","WRAP, LGE GRP, xx#03CR-28081",2/9/2016,Production Item: qze9b,WO # : W00007442
7,4,ea,"460.339.02","TRAY LGE GRP, xx#49R-27709",2/9/2016,Production Item: qze9b,WO # : W00007442
8,2,ea,"460.339.03","WRAP, SM GRP, xx#02CR-28079",2/9/2016,Production Item: tyu6B,WO # : W00007460
9,4,ea,"460.339.04","TRAY, SM GRP, xx#50R-27711",2/9/2016,Production Item: tyu6B,WO # : W00007460
10,2,ea,"460.339.01","WRAP, LGE GRP, xx#03CR-28081",2/9/2016,Production Item: ert9b,WO # : W00007469
11,4,ea,"460.339.02","TRAY LGE GRP, xx#49R-27709",2/9/2016,Production Item: ert9b,WO # : W00007469
12,2,ea,"460.339.01","WRAP, LGE GRP, xx#03CR-28081",2/9/2016,Production Item: YUTBN,WO # : W00007483
13,4,ea,"460.339.02","TRAY LGE GRP, xx#49R-27709",2/9/2016,Production Item: YUTBN,WO # : W00007483
14,2,ea,"456.325.30","CNT LONG BOX BTM#08CR-23399",2/9/2016,Production Item: 3323,WO # : W00007430
15,2,ea,"456.325.31","CNT LONG BOX TOP#27L-23400",2/9/2016,Production Item: 3323,WO # : W00007430
16,2,ea,"456.123.00"," KIT ASSY BOX#F29487",2/9/2016,Production Item: WDKSC,WO # : W00007497
17,2,ea,"456.147.00"," KIT ASSY BOX 2, SC#F29494",2/9/2016,Production Item: WDKSC,WO # : W00007497
18,2,ea,"456.325.11","BOX, 34/43"", WMT UPR#11CR-20517",2/9/2016,Production Item: 9876,WO # : W00007506
19,2,ea,"456.325.15","BOX, 34""/42"" WMT UPR, BTM#13CR-21227",2/9/2016,Production Item: 9876,WO # : W00007506
20,2,ea,"456.321.07","TRAY, BOTTOM, 66""#47L-20503",2/9/2016,Production Item: 9976,WO # : W00007519
21,2,ea,"456.321.08","TUBE, MEDIUM/SHORT, 66#14CR-20539",2/9/2016,Production Item: 9976,WO # : W00007519
22,2,ea,"456.321.09","TOP SPRT, 66#12CR-20504",2/9/2016,Production Item: 9976,WO # : W00007519
23,2,ea,"456.321.12","TRAY, TOP, 66#51R-20507",2/9/2016,Production Item: 9976,WO # : W00007519
24,4,ea,"456.321.11","BRACE, MEDIUM END#22L-20505",2/9/2016,Production Item: 9976,WO # : W00007519
25,1,ea,"456.321.07","TRAY, BOTTOM, 66#47L-20503",2/9/2016,Production Item: 9976,WO # : W00007546
26,1,ea,"456.321.08","TUBE, MEDIUM/SHORT, 66#14CR-20539",2/9/2016,Production Item: 9976,WO # : W00007546
27,1,ea,"456.321.09","TOP SPRT, 66#12CR-20504",2/9/2016,Production Item: 9976,WO # : W00007546
28,1,ea,"456.321.12","TRAY, TOP, 66#51R-20507",2/9/2016,Production Item: 9976,WO # : W00007546
29,2,ea,"456.321.11","BRACE, MEDIUM END#22L-20505",2/9/2016,Production Item: 9976,WO # : W00007546
30,1,ea,"456.321.07","TRAY, BOTTOM, 66#47L-20503",2/9/2016,Production Item: 9976,WO # : W00007566
31,1,ea,"456.321.08","TUBE, MEDIUM/SHORT, 66#14CR-20539",2/9/2016,Production Item: 9976,WO # : W00007566
32,1,ea,"456.321.09","TOP SPRT, 66#12CR-20504",2/9/2016,Production Item: 9976,WO # : W00007566
33,1,ea,"456.321.12","TRAY, TOP, 66#51R-20507",2/9/2016,Production Item: 9976,WO # : W00007566
34,2,ea,"456.321.11","BRACE, MEDIUM END#22L-20505",2/9/2016,Production Item: 9976,WO # : W00007566
35,1,ea,"456.325.10","BOX, 22/29"", WMT UPR#18CR-20518",2/9/2016,Production Item: 9876,WO # : W00007587
36,2,ea,"456.321.11","BRACE, MEDIUM END#22L-20505",2/9/2016,Production Item: 9776,WO # : W00007604
37,1,ea,"456.321.29","TRAY, BTM, 94#45L-20549",2/9/2016,Production Item: 9776,WO # : W00007604
38,1,ea,"456.321.30","TUBE,MED/SHORT, 94#05CR-20550",2/9/2016,Production Item: 9776,WO # : W00007604
39,1,ea,"456.321.31","SPRT, TOP, 94#04CR-20501",2/9/2016,Production Item: 9776,WO # : W00007604
40,1,ea,"456.321.32","TRAY, TOP, 94#43R-20548",2/9/2016,Production Item: 9776,WO # : W00007604
41,1,ea,"456.321.07","TRAY, BOTTOM, 66#47L-20503",2/9/2016,Production Item: 9776,WO # : W00007641
42,1,ea,"456.321.08","TUBE, MEDIUM/SHORT, 66#14CR-20539",2/9/2016,Production Item: 9776,WO # : W00007641
43,1,ea,"456.321.09","TOP SPRT, 66#12CR-20504",2/9/2016,Production Item: 9776,WO # : W00007641
44,2,ea,"456.321.11","BRACE, MEDIUM END#22L-20505",2/9/2016,Production Item: 9776,WO # : W00007641
45,1,ea,"456.321.12","TRAY, TOP, 66#51R-20507",2/9/2016,Production Item: 9776,WO # : W00007641

##</code><code>##

C:\A>perl test.pl test.csv
Odd number of elements in anonymous hash at test.pl line 14.
Reference found where even-sized list expected at test.pl line 14.

##</code><code>##

#!/usr/bin/perl
# test.pl

use strict;
use warnings;
use Text::CSV_XS;
use File::BOM;
use Switch;

 my @rows;
 my @strings;
 my $CT = 0;
 my $i = 0;
 my %i = {$i};
 my $input = "000";

 
# read in argument and use the first one as the filename to be read
 if (! defined $ARGV[0]){
    print "Usage: ./convertACsv.pl \"Please specify the filename like \"123456.csv\"\"\n";
    exit;
 }
 my $FileName = $ARGV[0];

# In a hex editor our source file shows \n or 0x0A or \010 characters in the data fields. 
# Our next process wants to have all fields within quotes and separated by commas. 
 my $aCSV = Text::CSV_XS->new ({
     eol                   => undef, # \r, \n, or \r\n
     sep_char              => ',',
     sep                   => undef,
     quote_char            => '"',
     quote                 => '"',
     escape_char           => '"',
     binary                => 1,
     decode_utf8           => 1,
     auto_diag             => 1,
     diag_verbose          => 1,
     blank_is_undef        => 0,
     empty_is_undef        => 0,
     allow_whitespace      => 1,
     allow_loose_quotes    => 1,
     allow_loose_escapes   => 0,
     allow_unquoted_escape => 0,
     always_quote          => 1,
     quote_empty           => 0,
     quote_space           => 0,
     escape_null           => 1,
     quote_binary          => 1,
     keep_meta_info        => 0,
     verbatim              => 0,
     types                 => undef,
     callbacks             => undef,
     });
	 
 open my $ORIG_CSV, '<:via(File::BOM)', "C:\\A\\$FileName" or die "Can't open C:\\A\\$FileName: $!";
 open my $MOD_CSV, '>:raw:encoding(iso-8859-1)', "C:\\A\\ModCSV.csv" or die "Can't open C:\\A\\ModCSV.csv: $!";
 open my $KBan_CSV, '>:raw:encoding(iso-8859-1)', "C:\\A\\kban.csv" or die "Can't open C:\\A\\kban.csv: $!";
 open my $CT_CSV, '>:raw:encoding(iso-8859-1)', "C:\\A\\ct.csv" or die "Can't open C:\\A\\ct.csv: $!";

 while (my $row = $aCSV->getline ($ORIG_CSV)) {
    if ($row->[0] =~ /\S/ ) {
 		 #many regex data modifiers removed from here

		 if ($row->[1] =~ /^\d+/) {
		    $i{$row->[3]}+=$row->[1];
			print "$i{$_} $_+\n for sort keys %i";
			}
		 
		 # post processing removed
		 
    	 push @rows, $row;

    }
 close $ORIG_CSV;
 $aCSV->say ($MOD_CSV, $_) for @rows;
 close $MOD_CSV or die "Can't close C:\\A\\ModCSV.csv: $!";
 close $KBan_CSV or die "Can't close C:\\A\\KBan.csv: $!";
 close $CT_CSV or die "Can't close C:\\A\\CT.csv: $!";
 }