sub get_columns ($) {
       my $log = shift;
       ### Add this ###
       print "get_columns sub TOP: \$log = $log\n";
       my @Cols = ();