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

##</code><code>##

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