my $n = unpack '%32b*', ( $set[ $x ] ^ $set[ $y ] );