Select Code to Download

my @col1; ## column 1
my @col_ID; ## column 2
my @col3; ## column 3

 @AoH = (
{
...
  col_ID => "col_ID",
  col3   => "col3",
},)

#!/usr/bin/perl
use warnings;
...
3col1abcdefghijklmnopqrstuvwxyz0123456789,3col_ID,+3col3[T],3col4,spli
+c,+
4col1abcdefghijklmnopqrstuvwxyz0123456789,4col_ID,-4col3[G],4col4,spli
+c,-