Select Code to Download

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

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

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

sub EXISTS {
    my( $pre, $key, $post ) = unpack $mask{ $_[SELF] }, $_[KEY];
...
        defined $_[SELF]{ $key }
            and $_[SELF]{ $key }[ 0 ] =~ m[(...\c@)\Q$post\E\xff]s;
}