require Tie::SubstrHash;

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

