$col->[26] = (($col[26] eq  '0') ? ''  :  $col->[26] );
         print '  $col->[26]:'  .  $col->[26]  .  ":\n"  ;