my %colhash = % { $col };
  if($debug == 1) { print "DUMP COLHASH: \"" . Dumper(%colhash) . "\" L: \"" . __LINE__ . "\"\n"; }