Use use strict;!
Use use warnings;!
Both would have caught the error independently.

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

should be

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