use Data::Dumper;

    sub STORE {
        warn Dumper('store', \@_);
        shift->SUPER::STORE(@_)
    }

    sub TIEARRAY {
        warn Dumper('tie', \@_);
        shift->SUPER::TIEARRAY(@_)
    }

    sub CLEAR {
        warn Dumper('clear', \@_);
        shift->SUPER::CLEAR(@_)
    }