sub  buk2{
    my( $aRef, $bRef ) = @_;

    my( $aBits, $bBits );
    for( $aBits, $bBits ) {
        local $\;
        open my $ram, '>', \$_;
        seek $ram, $MAX-1, 0;
        print $ram chr(0);
        close $ram;
    }

    vec( $aBits, $_, 1 ) = 1 for @$aRef;
    vec( $bBits, $_, 1 ) = 1 for @$bRef;

    my $iCount = unpack '%32b*', ( $aBits & $bBits );
    my $uCount = @$aRef + @$bRef - $iCount;

    $aBits = $bBits = '';

    print 'buk2: ', $iCount, ' : ', $uCount if $SHOW;
    return( $iCount, $uCount );
}