Select Code to Download

$col->[26] = (($col[26] eq  '0') ? ''  :  $col->[26] );
                  ^^^

use strict;
use warnings;