my $bin1 = $binc1 ? '1' : '0';