if ($token eq '(') {
  push @{ $node }, [];
  push @stack, $node;
  $node = $node->[-1];  # the new empty array ref
}