my @comparisons = ('0', 0, 1, '', '0 but true', 'abcd');

for (@comparisons) {  
   if ($_) {
      print "keep [$_]\n";
   }
   else {
      print "discard [$_]\n";
   }
}