%iphash = (
    192 => { 192.168.0.0/24 => 23244, 
             192.168.1.0/24 => 4324,
            },
    193 => { 193.1.0.0/16 => 2452 },
);

##</code><code>##

my $pt = new Net::Patricia;
(fill it)
my $memd = new Cache::Memcached {(usual stuff)};
$memd->set( 'pt', $pt );
(...)
my $ptm = $memd->get('pt');
my $asn = $ptm->match_string($given_ip);

##</code><code>##

perl in free(): warning: chunk is already free
perl in free(): warning: page is already free
Assertion failed: (prefix->ref_count > 0), function Deref_Prefix, file patricia.c, line 362.
zsh: abort (core dumped)  perl ipmemcached_00.pl