Select Code to Download

    sub FETCH {
        # ...
        $val= $refToTiedHash->{$key};
        # ...
    }

    sub FETCH {
        # ...
        $val= tied(%$refToTiedHash)->FETCH($key);
        # ...
    }