my $needle = getBits();
my $nBits = unpack '%32b*', $needle;

for my $straw ( @haystack ) {
    my $similarity = unpack '%32b*', $straw & needle;
    print "Percentage similarity %f\n", $similarity / $nBits * 100;
}