Select Code to Download

my @a=();
my @b=();

my @a1=();
my @b1=();

open (TXT, "<$filename") || die "Can't open $filename: $!\n";
my @array;
...
        push @{$array[$_]}, $list[$_];
    }
}

@array = (
  [
...
    '3777'
  ]
);

my @perl_array;

...
for ( @perl_array ) {
    print $_,"\n";
}

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

secid,Initial_shares,Char
002826,3777,a
...
0028262,3777,d
0028262,3777,e
0028262,3777,f

var secid=[002826,0028262,0028262,0028262,0028262,0028262]
var Initial_shares=[3777,3777,3777,3777,3777,3777]
var Char=[a,b,c,d,e,f]