(?{ push_number( $^N, $depth ); })
sub push_number {
...
TRACE( $depth, $msg );