Fixed it by getting the results in character 'f' and 't' ( instead of numeric of 0 and 1) from database by changing the query.

# get Discontinued 
my $sql = qq!SELECT DISTINCT("Discontinued")::CHAR AS disc  
             FROM "Products" ORDER BY 1 DESC !;
[download]