my ($col_num)=@_; my $col_variable=\$_[1];