my $bitsInCommon = unpack '%32b*', ( $record1 & $record2 );