unshift @undo, sub { ... };