Select Code to Download

my $raw_graph = [
    'root', undef,
...
        "Oops.",
    ],
];

explorenode( $raw_graph, [], 1, 1 );

sub explorenode {
    my ( $node, $rows, $left, $id ) = @_;
...
    $left++;
    push( @$rows, [ $i, $l, $left, $node->[0], $node->[1] ] );
}

$VAR1 = [
          3,
...
          'root',
          undef
        ];

$VAR1 = [
          3,
...
          'root',
          undef
        ];