Help for this page
package My::TieHashTest; require Tie::Hash; ... $hash{d}= 4; print $_,$/ for keys %hash;
> t-tiehash.pl TIEHASH ... DESTROY