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