perl Tie-ToObject