Hello ash1351,

Here is one way to do it with the help of Data::Table and Cpanel::JSON::XS. There are a few different choices for modules to parse csv files and to emit JSON...I just happen to be familiar with these ones.

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Table;
use Cpanel::JSON::XS;

my $table = Data::Table::fromCSV('data.csv');

my @column_names = $table->header;

foreach my $col_name (@column_names) {
    my @column_values = $table->col($col_name);
    my $json = encode_json(\@column_values);
    print "var $col_name = $json;\n";
}

exit;
[download]

The output is:

var secid = ["002826","0028262","0028262","0028262","0028262","0028262
+"];
var Initial_shares = ["3777","3777","3777","3777","3777","3777"];
[download]

This code should handle data.csv files with different numbers of columns.