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