my $bin1;
if ($binc1 != 0) {
   $bin1 = 1;
} else {
   $bin1 = 0;
}