perl Tie-StrictHash