{
    no strict 'refs';
    *$_ = eval "sub { &main::trigger; shift()->SUPER::$_(\@_) }" for qw(STORE CLEAR PUSH POP SHIFT UNSHIFT);
 }