BEGIN {
   *CORE::GLOBAL::push = sub(\@@) {
      my $array = shift(@_);
      print("Pushing\n");
      return CORE::push(@$array, @_);
   };
}