use constant MAX   => 20;
use constant BLANK => chr(0) x ((MAX / 8) + 1);
...
    my $key = BLANK;
    vec( $key, $_, 1 ) = 1 for @$_;
    $cache{ $key } = $_;
...
    my @subsel = grep{ ( $_ & $mask ) eq BLANK } keys %cache;