for my $i (0 .. $#col_num) {

##</code><code>##

use strict;
use warnings;