tie my %hash, 'Tie::CompactHash', 'A0 A4 A*';

##</code><code>##

tie my %hash, 'Tie::CompactHash', 'A0 A2 A*';

##</code><code>##

tie my %logs, 'Tie::CompactHash', 'A3 xx A4 A2 A*';

##</code><code>##

sub EXISTS {
    my( $pre, $key, $post ) = unpack $mask{ $_[SELF] }, $_[KEY];
    die "Prefix mismatch $pre ne $pre{ $_[SELF] }"
        unless $pre eq $pre{ $_[SELF] };

    return
        defined $_[SELF]{ $key }
            and $_[SELF]{ $key }[ 0 ] =~ m[(...\c@)\Q$post\E\xff]s;
}