#! /users/michwong/perl/bin/perl
#! /users/michwong/perl/bin/perl -d:ptkdb

use lib qw( . );
use MultiHash;

tie %$hash, "MultiHash";

$hash->{ x }{ y } = 10;
$hash->{ x }{ y };