my %colcolumn; @colcolumn{@$colnames} = 0 .. $#$colnames;