#!/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;

##</code><code>##

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