tied(%db_btree)->filter_fetch_key  ( sub { $_ = unpack("N", $_ || 0 ) } ) ;
tied(%db_btree)->filter_store_key  ( sub { $_ = pack ("N", $_ || 0 ) } ) ;