{
  no strict;
  for my $method (qw(STORE CLEAR PUSH POP SHIFT UNSHIFT))
  {
    my $sub = "SUPER::$method";
    *$method = sub { &main::trigger; my $self = shift; $self->$sub($self, @_) };
  }
 }