for (my $y = 0; $y <= $#header; $y++) {
      $colLens[$y] = length($header[$y]);
   }