for my $col ( @$cols_ref ) {
  print "$col\n";
}