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

You're missing an arrow here. Start all your scripts with

use strict;
use warnings;
[download]

and declare your variables, that would have helped to catch this error.