require Tie::SubstrHash; tie %myhash, "Tie::SubstrHash", $key_len, $value_len, $table_size;