#!/usr/bin/perl

{
package Set::Select;

use strict;
use warnings;

sub new {
	my ($class, $args, @sets) = @_;
	my $attr;
	$attr = $args->{key} if (ref $args eq 'HASH' and exists $args->{key});
	my $self;
	for my $i (0..$#sets) {
		for my $elem (@{$sets[$i]}) {
			my $key = defined $attr && ref $elem eq 'HASH' ? $elem->{$attr} : $elem;
			$self->{$key}->[1] //= $elem;
			$self->{$key}->[0] //= '0' x @sets;
			vec($self->{$key}->[0], $i, 8) = 0x31;
		}
	}
	bless $self, $class;
}

sub select {
	my ($self, $bits) = @_;
	return [map { $self->{$_}->[1] } grep { $self->{$_}->[0] =~ $bits } keys %$self];
}

}

package main;

use strict;
use warnings;
use Data::Dumper;

my $x = Set::Select->new({}, [1, 3, 5, 7], [2, 3, 6, 7], [4, 5, 6, 7]);

print Dumper $x->select($_) for qw/100 101 111 10. ... /;

my $y = Set::Select->new({key => 'id' },
	[{id => 1, value => 1}, {id => 3, value => 1}, {id => 5, value => 1}, {id => 7, value => 1}],
	[{id => 2, value => 2}, {id => 3, value => 2}, {id => 6, value => 2}, {id => 7, value => 2}],
	[{id => 4, value => 3}, {id => 5, value => 3}, {id => 6, value => 3}, {id => 7, value => 3}],
);

print Dumper $y->select($_) for qw/100 101 111 10. ... /;