Select Code to Download

my $node = my $tree = [];
my @stack;

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

if ($token eq ')') {
  $node = pop @stack;
}

$a = $b = [];
$a = 2;

#!/usr/bin/perl -w

...
    $_[0]{$_[1]} = delete $_[0]{'.'};
  }
}