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