@MY_HASH = (0) x $HASH_LIMIT;

##  put (key:string, val:string) : nil
#
#   store a value in a hash
#
sub put {
    my $key = shift;
    my $val = shift;

    $MY_HASH[ &myhash($key) ] = $val;
    return;
}

##  get (key:string) : string
#
#   get a value from the hash
#
sub get {
    my $key = shift;

    return ($MY_HASH[ &myhash($key) ]);
}