perl Tie-StrictHash Tie::StrictHash