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