-sub STORE
-{
-my($this,$key,$value)=@_;
-
- return $this->SUPER::STORE($key,$value) if $key!~/_push$/;
- my $val_orig=$this->SUPER::FETCH($key);
- $val_orig=[] if !defined $val_orig;
- $val_orig=[$val_orig] if "ARRAY" ne ref $val_orig;
- return $this->SUPER::STORE($key,[@$val_orig,$value]);
-}
-