sub STORE    {
        warn "Storing data with key $_[1] at $_[0].\n";
        $_[0]{$_[1]} = $_[2]
      }

##</code><code>##

package Tie::StdHash;

...

sub TIEHASH  { bless {}, $_[0] }
sub STORE    { $_[0]->{$_[1]} = $_[2] }