my $bin1 = $binc1 ? 1 : 0;